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EDITORIAL 


ELBUG ONE YEAR OLD 

You will find enclosed with this issue of ELBUG a complete index to the entire 
contents of Volume 1 of the magazine. This has been organised to try and help you if 
you are seeking information on a particular topic, rather than simply by origianal 
title. The new ELBUG binders contain provision to allow you to include the index 
with your set of issues for Volume 1. Now that ELBUG is beginning to mature any 
comments or ideas for the future will be most welcome. 


CHRISTMAS COMES EARLY 

Despite my statement in the previous issue .this is not the Christmas issue of 
ELBUG - that will follow next month - but indicates how far ahead each issue has to 
be planned. This editorial is being written in mid October when much of the work for 
the December issue (the real Christmas issue) is well under way. This highlights the 
importance of submitting any contributions well in advance if they are intended for 
a particular issue or appropriate to a particular time of year. 


NEW SOFTWARE FOR THE ELECTRON 

You will also see in the section below that our software section have now 
released a range of our proven software for the Electron in time for the Christmas 
market. These titles have already proved tremendously popular with BEEBUG members 
and we are sure that they will be equally attractive to ELBUG readers. 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOA 


NEW RELEASES FROM BEEBUGSOFT 

Nearly all of BEEBUGSOFT's range of serious software is now available in versions 
for the Electron. Now that there are several Electron ROM boards on the market, 
Exmon and Toolkit are also being made available in this format. Exmon is a complete 
machine code monitor for the Electron, and Toolkit a set of most useful 
utilities for all Basic programmers. Exmon is also available on cassette. 


Other programs on cassette include Masterfile - a much improved Electron version 
of the well established BBC micro database package - and Superplot - the best thing 
to happen to graphs since the invention of squared paper. 


For the less seriously minded there is Sprite Utilities - a package providing all 
you need to design and use fast moving, animated, full colour characters in your own 
Basic games programs - and Paintbox - a sophisticated drawing package that includes 
outline drawing, shape creation, and fill in many shades and textures. 


For beginners there is a Starter Pack with 5 utility programs, 7 games, and a 
comprehensive manual with hints, tips, and articles explaining all the more 
difficult aspects of your new Electron. 


Full details are contained in the Software Brochure that you receive with this 
issue of ELBUG. Note that we are now taking Access and Barclaycard orders on all 
products: ring Penn (049481) 6666 any time of day or night. It is essential to quote 
your membership number to qualify for the members' discount. 


HINT WINNERS 
This month the £19 prize goes to P.Watts and the £5 prize goes to P.Wells. We are 
always pleased to receive more Electron hints. 


MAGAZINE CASSETTE 
All the programs from this month's magazine are available on cassette, and full 
order details appear on the back cover of ELBUG. 
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SYNCHRONISING WORDS AND MUSIC 


by Brian Boyde-Shaw 


The Electron's ability to play music whilst it is performing other actions 
is very useful, but it can make it difficult to synchronize the music with 
the appearance of words on the screen. Brian Boyde-Shaw gives the low down 


on putting words to your music. 


Trying to print 
out the words of a 
song while it plays 


through your 
Electron's speaker 
is not an easy task. One, 
Because of the way 
in which sound 
commands are handled 
by the Electron, 


there is a tendency 
for the words and 
the music to become 
totally separated. 


Once 
In the program in 
this article the 
sound is broken down 
into single notes, 
and combined with 
text - words or part 
words - so that the Six, 
text is being 
written on the 


screen at the same 
time as you hear the 
corresponding note. 


The aim of the 
program is to play a 
simple nursery 
rhyme, one note at a 
time as the words 
are displayed on the 
screen. 


The nursery rhyme we have chosen 
here is 'One, two, three, four, five.', 
with the words and music as in the 
diagram. The methods used, however, can 
easily be adapted to any musical piece. 


Let's first look at a procedure to 
carry out this routine. As there are 
twenty four notes in the rhyme, we can 
conveniently read in the word, or part 
word, the pitch of the note, and the 
note's duration, from DATA statements. 


three, four, five, 


caught a fish a -  iive, 


eight, nine, ten, 


4906 DATA one,88,8,two,88,8,three,80,4 
,four,72,4,five,72,8 

4019 DATA once,89,4,1,88,4,caught ,92,4 
7a, 100,4,fish,100,4,a,92,4,live,92,8 
4920 DATA six,92,8,seven,92,8,eight ,88 
,4,nine,80,4,ten,80,8 

4938 DATA then,72,4,1,68,4,let,60,4,it 
,68,4,g0,80,4,a,72,4,gain,72,8 


We can then print the word in the 
centre of the screen, play the note, 
and clear the screen. Then do it all 
again until we reach the end of the 


rhyme . 
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One, two, three, four, five, 
Once I caught a fish alive 


Six, seven, eight, nine, ten, 


Then I let it go again 


PRESS SPACE BAR TO CONTIHUE. 


1006 DEF PROCwords 

1018 FOR R=1 TO 24 

1@2@ READ WORDS, PITCH,DUR 

10398 PRINT TAB(15,15)WORDS 

1648 SOUND 1,-15,PITCH,DUR 

1658 T$=TIME:REPEAT UNTIL TIME>T$+5*DUR 
1668 CLS 

1678 NEXT R 

1088 ENDPROC 


This procedure is designed to work 
in mode 4, but could be adapted for any 
other mode, providing that the 
parameters of the TAB statement (line 
1038) are adjusted according to the 
appropriate line width. 


Line 1656 will need some 
explanation. We need a delay loop to 
display the word on the screen for the 
time that the note sounds. If we 
allowed the program to continue without 


this delay loop, the screen would 
clear, then the next word would be 
printed, and so on, am so on, until 


all the words had been displayed, but 
the music would have hardly started. On 
the Electron, sounds are placed ina 
queue ready for processing. This takes 
up very little of the computer's time. 
Drawing and printing onto the screen, 
however, does take a while, so the two 
can get out of step. You can try this 
procedure without this line to see (and 
hear) this effect. 


We must delay the printing of the 
‘next' word until the note has finished 
playing, and line 1858 does this. As 
the duration of the note (DUR from the 
data statements) is in twentieths of a 
second - for the SOUND statement - this 
delay must be converted to the units of 
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hundredth of a _ second - the units of 
TIME. Line 1650 makes the conversion 
and delays the next word from appearing 
on the screen. 


For the first note, for example, the 
SOUND statement requires, a duration 
value of 8. The delay loop, however, 
requires a value of 40 hundredths of a 
second. Line 1050 makes the conversion 
with the formula: 


DELAY=DUR*5 


You could, of course, put both 
timing codes separately into the data 
statements, but this would mean more 
effort typing in the music, amd be 
wasteful of memory into the bargain. 


We now have a simple procedure to 
show how words and music can _ be 


connected, but there are other more 
exciting ways of doing this. We can 
allow the text to build up on the 
screen, word by word, until the 


complete verse is displayed. 


The same data statements can't be 
used because we need punctuation on the 
screen, now that we are to have the 
whole verse visible at once. When we 
include punctuation in data we have to 
wrap the data in inverted commas. 
Another snag is that we have to provide 
some means of telling the computer to 
start a new line for each line of the 
verse and that ‘alive' and 'again' are 
two notes each but only one word. We 
need to introduce a coding system into 
our data. 


4950 DATA "*One,",88,8,"two,",88,8,"th 
ree,",80,4,"four,",72,4,"five,",72,8 
4068 DATA "*Once",80,4,"I",88,4,"caugh 
t",92,4,"a",100,4,"fish",100,4,"a",92,4 
,"-live",92,8 

4070 DATA "*Six,",92,8,"seven,",92,8," 
eight,",88,4,"nine,",80,4,"ten,",80,8 
4988 DATA "*Then",72,4,"I",68,4,"let", 
60,4,"it",68,4,"go",80,4,"a",72,4,"—gai 
n",72,8 


The asterisk signals that a new line 
is to be printed and the dash that this 
word is to be joined onto the previous 
one. This is the procedure that decodes 
these characters and prints out the 
whole verse in time to the music. 
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2000 DEF PROCLines 

2010 PRINT ''' 

2628 FOR R=1 TO 24 

2638 READ WORDS, PITCH,DUR 

2648 CONTROLS=LEFTS (WORDS, 1) 

2656 IF CONTROLS<>"-" AND CONTROLS<>"* 
" THEN 2090 

2068 WORDS=RIGHTS (WORDS , LEN (WORDS) -1) 
2070 IF CONTROLS="*" THEN PRINT '' 
2686 IF CONTROLS="-" THEN VDU 8 

2098 PRINT WORDS;" "; 

2186 SOUND 1,-15,PITCH,DUR 

2119 TS=TIME: REPEAT UNTIL TIME>T$+5*DUR 
2120 NEXT R 

2138 PRINT TAB(5,2@)"PRESS SPACE BAR 
TO CONTINUE." 

2149 REPEAT UNTIL GET=32 

215@ ENDPROC 


This second procedure is for mode 4 
as well. Again, it could easily be 
converted to other modes by altering 
the TAB statements and the new line 
control characters in the data. 


Line 2048 removes the control 
character from the lyric and checks to 
see if it is in fact a _ control 
character. If it isn't then the note is 
sounded, the word is printed onto the 
screen, and a delay loop used as 
before. This time the word is printed 
to follow directly on from the last 
one, without clearing the screen. 


The lines 20676 and 2688 act 
according to the control character 
found. If an asterisk is found a new 
line is printed before the word. If a 
dash is there then the cursor is moved 
back one position, using VDU 8, to join 
the word to the last one printed. 


As we are writing the complete rhyme 
now, clearing the screen as soon as the 
last word is printed isn't a good idea. 
A chance is given for the user to read 
the verse with a pause in lines 2136 
and 2148. GET reads the keyboard and 
returns the ASCII code for the key 
being pressed. The space bar has an 
ASCII code of 32. 


We now have two procedures and two 
sets of data, one to print out the 


words only, and one to print out the 
verse, line by line. So now let's put 
them into a complete program. 


1@ MODE 4 
28 VDU23,1,0;0;9;9; 
30 REPEAT 
48 PROCcontinue 
58 UNTIL FALSE 
68 END 
78: 
3086 DEF PROCcontinue 
3018 CLS 
3826 VDU19,8,4;9;19,1,3;9; 
3030 PRINT TAB(5,5)"Press W to play 
the words." 
3649 PRINT TAB(7,7)"or P to play the 
poem." 
3058 AS=GETS 
3869 A=INSTR("WwPp",AS) 
3070 IF A=@ THEN 3050 
368 CLS 
3096 IF A<3 RESTORE 4080: PROCwords 
3160 IF A>2 RESTORE 4@5@:PROClines 
3118 ENDPROC 


First mode 4 is set up without a 
cursor and then the procedure, 
PROCcontinue is called again and again 
until you tire of the rhyme. 


PROCcontinue simply clears’ the 
screen and redefines the foreground and 
background colours to prettier 
variants, then offers you the choice 
between seeing the rhyme one word at a 
time or building up on the screen. Your 
answer is compared in line 3068 with 


the possible legitimate answers. 
Whichever you pick, the right data 
statements are selected with the 
restore command and the requisite 


procedure called. 


When you have heard ‘One, two, 
three, four, five' to your hearts 
content, you may like to enter your own 
music. You can put any tune in as data. 
Each note should be entered as: word 
printed, pitch, and duration. Don't 
forget to change the total number of 
notes (24 in the example) in lines 1919 
and 202¢. & 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


QUICKER ENDPROCS - M.R. Bowers 


When typing in ENDPROC, it 1s useful to know that it can be abbreviated to 'E.'. 
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DOWNHILL SKI RACER 


by Thomas Seddon 


With winter now approaching, some of you might like to try your hand 
at winter sports and experience the thrills (and spills) of downhill 
ski racing. We provide a program that is enjoyable to play, very 
cheap and yet free fram the dangers of broken limbs. 


Downhill Ski Racer is a fast action 
game in which you have to negotiate a 
series of gates on your way down the 
ski slopes of St. Elkwitz. There are 9 
different runs in this game, each one 
requiring dexterity and = speed of 
thought. 


The game is very simple to play but 
very compulsive. You have one control - 
the space bar. Pressing this changes 
the direction of the skier as he (she) 
comes down the slope. You have to guide 
the skier through the gates of the 
slalom course to the final line. 


If you hit a flag, marking the 
gates, you will not slow down as you 
would in the real life ski run, but 
such travesties are noticed and 
displayed at the end. More realistic 
is this game's treatment of hitting 
the trees. This is fatal! 


The different runs range, from the 
simple slopes of the beginners slalom, 
with 20 gates, to the perilous 
precipices of the ultimate slalom, with 
5@ gates. At the end of each run you 
are given the number of gates that you 
hit and the number that you've passed 
through. 


Downhill Ski Racer can be played in 
either mode 1 or mode 5. The choice of 
which run you take determines the mode. 
Playing in mode 1 is advisable until 
you become really proficient skier. The 
gates are further from one another in 
mode 1 runs, which makes steering 
between them easier. In mode 5 things 
get more difficult, especially on the 
‘Ultimate Slalom’. 


PROGRAM NOTES 

The program is reasonably well 
structured with the bulk of the action 
called from lines 1186 to 406. 
PROCselect displays the instructions on 
the screen and allows you to choose 


your slalom run. PROCsetup does just 
that. It uses the course that you have 
chosen to select the data for that 
course from the series of DATA 
statements between lines 1570 and 1920. 


PROCstart continues the setting up 
by preparing the screen for your race. 
The colours are changed and the cursor 
removed. Finally it waits for your 
signal to commence. 


The actual run down the slalom is 
taken care of by the main. section of 
program between lines 198 and 490. Line 
226 prints out the trees at the edge of 
the course as the screen scrolls 
upwards. The screen is actually 
scrolled by line 388. This prints a 
space at the bottom right hand corner 
of the screen, forcing the screen to 
scroll upwards. The value of ‘'xpoke' 
determines at what position across the 
screen this is done, to accomodate the 
different positions of the bottom right 
corner in the different modes used. 


Pressing the space bar is detected 
in line 3680 and the suitably 
directioned ski figure is chosen 
accordingly. 


Detecting if you've hit anything - 
flag or tree - is handled by the 
slightly strange looking function, 
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FNreadcharacter, at line 19800. This 
uses the operating system call to read 
the ASCII value of a character anywhere 
on the screen, in this case at the 
position of the skier. The ASCII value 
is used to determine whether it isa 
flag or a tree that you have hit. 


If it is merely a flag that you have 
collided with, the loop carries on and 
only the total of flags that you have 
hit is affected (line 370). If however 
you have hit a tree, then a procedure, 
PROCendofrun, is called to round the 
whole thing off. This procedure is also 
called when you have reached the end of 
the slalom in one piece. 


PROCendofrun just asks the usual 
question as to whether you try again. 
The position of the prompt for this 
question, again has to be dependent on 
the mode being used for the run. 


10 REM PROGRAM SKIER 
2@ REM VERSION EG.2 
38 REM AUTHOR T.SEDDON 
40 REM ELBUG NOVEMBER 1984 
58 REM PROGRAM SUBJECT TO COPYRIGHT 
66 : 
108 ON ERROR GOTO 2469 
118 MODE 1 
126 PROCselect 
138: 
149 REPEAT 
158 PROCsetup 
168 MODE mode 
176 PROCstart 
188 : 
198 REPEAT 
288 co%=co$+l 
218 COLOUR 2 
220 PRINTTAB (~1+RND(tree%) ,29) ;CHRS23 
4;TAB( (xpoke-tree%) +RND (trees) , 29) ;CHRS 
234; 
238 COLOUR 3 
248 IF co% MOD DI%$=@ AND done%=FALSE 
READ Z$:IF Z%$<>999 PRINTTAB(Z%,29) ;GAT 
ES; :gat=ga$+1 
256 IF Z%=999 AND done%=FALSE PRINTTA 
B(trees, 29) CHR$236; STRINGS (w$,CHRS$235) ; 
:COLOUR] : PRINT" FINISH"; :COLOUR3: PRINTST 
RINGS (w%,CHRS$235) ;CHR$233; sdone$=TRUE 
266 COLOUR 1 
270 IF left PRINTTAB(X$+1,14);" "; 
286 IF right PRINTTAB(X%-1,14);"_"; 
298 PRINTTAB (X%, 15) ;CHRS (SKI) ; 
308 k%=INKEY (8) 
319 IF k%=32 AND left% right%=TRUE:le 
£t$=FALSE: SKI=231:GOTO 336 


ooo oF 


* 


oes FOO FO¢ F008 


* 
* 


> 


7 
o> + FOO> OOF 


oo 
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320 IF k%=32 AND right% left$=TRUE:ri 
ght%=FALSE:SKI=2398:GOTO 338 

330 IF left X%=X%-1:IF xX%<@ X%=@ 

346 IF right X%=X%+1:IF X%>xpoke X= 
xpoke 

358 R%=FNreadcharacter (X%, 16) 

368 IF Rt=138 PRINT:PRINT:SOUND @,-15 
74,28: PROCendofrun:UNTIL TRUE: UNTIL FAL 
SE 

37@ IF R%=136 SOUND 1,2,100,2:£1%=£1% 
+1 

386 PRINTTAB(xpoke,31);" "; 

396 IF FNgatecheck g=g+1 

400 UNTIL R%<>32 AND R&<>136 

410: 

426 PROCdispscore 

439 PROCendofrun 

449 UNTIL FALSE 

459 END 

466 : 

1008 DEF FNreadcharacter (F,G) 

1G1@ VDU31,F,G 

1628 A$=135 

1038 =(USR(&FFF4) AND &FF@@)DIV &1980 
1048 : 

1058 DEF PROCsetupcharacters 

1068 VDU 23,230,24,24,60,126,61,36,72, 
144:REM SKIER LEFT 

1878 VDU23,231,24,24,60, 126,188, 36,18, 
9:REM SKIER RIGHT 

1@8G VDU 23,232,96,124,127,124,96,96,9 
6,96:REM POLE OF FLAG 

1698 VDU23, 233,16, 28,36, 144,255,255, 25 
5,255:REM RIGHT END OF LINE 

1168 VDU23,236,16,28,36,17,255,255, 255 
,255:REM LEFT END OF LINE 

111@ VDU 23,234,G,24,24,60,60,126,24,2 

4:REM FIR TREE 

1128 VDU23,235,0,9,9,8,255,0,9,8 

113@ GATES=CHR$232+" "+CHRS$232 

114@ ENVELOPE 2,129,-15,-8,-3,19,19,1G 
79,9,9,8,9,0 

1158 ENDPROC 
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1168 : 

1178 DEF FNgatecheck 

118@ C%=FNreadcharacter (X%-1,15) 

1198 D%=FNreadcharacter (X%-2,15) 

12@@ E%=FNreadcharacter (X%+1,15) 

‘1219 F%=FNreadcharacter (X%+2,15) 

1226 IF C%=136 AND F%=136 =TRUE 

123@ IF D%=136 AND E%=136 =TRUE 

1248 =FALSE 

1258 : 

1268 DEF PROCselect 

127@ PRINT 

1288 PRINTTAB(12) ;"DOWNHILL SKIING" 
1298 COLOUR 1 

1366 PRINTTAB (12) ;"--------------- Ly 
1318 COLOUR 3 

1328 PRINT: PRINT 

1338 PRINT" CONTROL YOUR SKIER BY PRE 
SSING THE SPACE BAR TO CHANGE DIRECT 
ION.YOU MAY SELECT VARYING COURSES - " 
1349 PRINT " YOU MUST GO BETWEEN THE F 
LAGS AND NOT HIT THE TREES.AT THE END 
OF THE RUN THE NUMBER OF GATES YOU PASS 
ED SUCCESSFULLY IS DISPLAYED ALONG WITH 
THE NUMBER OF FLAGS KNOCKED DOWN." 
135@ PRINT: PRINT 

1368 VDU19,2,2,9,6,0 

1376 COLOUR @:COLOUR 136 

1380 PRINT STRINGS(39," ") 


1398 PRINT "1. BEGINNER'S SLALOM - 26 
GATES i 

1406 PRINT "2, INTERMEDIATE SLALOM - 2 
8 GATES " 

1418 PRINT "3. DIFFICULT SMALL SLALOM 
- 26 GATES " 

1426 PRINT "4. LONG GIANT SLALOM(HARD) 
- 36 GATES " 


1438 PRINT "5. 
T) - 5@ GATES" 
1440 PRINT "6. 
) - 26 GATES " 
1458 PRINT "7. 
- 20 GATES " 
1469 PRINT "8. 
- 20 GATES " 
1476 PRINT "9. 
@ GATES " 
1488 PRINT STRINGS (39," ") 

1498 COLOUR 3:COLOUR 128 

15@@ PRINT: PRINT 

151@ PRINTTAB(11,3@);"WHICH DO YOU WAN 
pee 

1520 REPEAT:WS=GETS$:UNTIL VAL (WS) >@ 
1536 ap=1630 

1546 FOR A=1 TO VAL(WS) :dp=dp+30:NEXT 
1558 ENDPROC 

1566 : 

1576 REM COURSE DATA 

1588 REM . 

1598 REM Ist NUMBER IS VERTICAL 


KING SLALOM (V.DIFFICUL 
FAST SLALOM(V.DIFFICULT 
FAST GIANT SLALOM (HARD) 
FAST TREE HUGGER (HARD) 


THE ULTIMATE SLALOM - 5 


1698 REM DISTANCE BETWEEN GATES AND 
161@ REM FOLLOWING ARE DISTANCE OF 
1628 REM NEXT GATE FROM THE LEFT EDGE 
163@ REM THE STATEMENT ENDS WITH 999 
1648 : 

1658 REM BEGINNERS 

1668 DATA 8,1,39,15,19,19,14,19,9,8,1@ 
715,17,20,22,23,27,29,31,29,25,22,28,999 
1676 : 

1688 REM INTERMEDIATE 

1698 DATA 8,1,39,19,20,18,20,22,28,18, 
16,14,16,18,20,22,24, 26,28, 26,24, 22,28, 
999 

1706 : 

1718 REM SMALL DIFFICULT 

1728 DATA 4,1,39,18,22,18,22,18,22,18, 
22,18,22,18,22,18,22,18,22,18,22,18,22, 
999 

1736 : 

1748 REM GIANT LONG HARD 

1758 DATA 8,1,39,20,14,8,8,8,14, 26,26, 
20,14,8,8,8,14,28,26,20,14,8,8,8,14,26, 
20,20,14,8,8,8, 14,999 

1768 : 

177@ REM KING SLALOM 

1788 DATA 7,1,39,20,15,19,5,8,5,9,5,18 
15,11,5,12,19,26, 32,29, 32,28, 32,27,32,2 
6,32,25,28,21,27,20,20,20,13,6,13,7,13, 
26,27,25,29,27,27,28,13,20,27,20,13,17, 
26,999 

1798 : 

1808 REM FAST SLALOM 

1818 DATA 8,5,19,19,4,19,4,10,4,19,4,1 
G,4,10,4,18,12,19,12,19,8,12,18,999 
1828 : 

1830 REM FAST GIANT SLALOM 

1848 DATA 6,5,19,10,4,10,4,10,4,18,4,1 
G,4,10,14,16,14,13,12,11,19,4,16,999 
1858 : 

1860 REM FAST TREE HUGGER 

1878 DATA 5,5,19,10,5,8,3,7,3,6,3,5,3, 
4,3,3,3,8,13,8,3,8,13,999 

1880 : 

1896 REM FAST KING SLALOM 

1968 DATA 7,5,19,19,14,6,10,14,10,6,16 
714,19,6,18,3,19,3,9,3,8,3,5,3,3,18,14, 
7414479145791 4677149741447 71497 414,7,14 
17714,15,15,8,3,8,18, 14,186,999 

1918 : 

1928 REM END OF COURSE DATA 

1938 : 

1948 DEF PROCsetup 

1958 RESTORE dp 

196@ READ DI% 

1978 READ mode 

1989 IF mode=1 tree%=4 ELSE IF mode=5 
trees=2 

1999 READ xpoke 

2008 IF mode=1 width=15 ELSE width=5 
2019 Z%=8 
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2028 cot=0:gat=d 

2838 g=0 

2046 £1%=0 

2658 done%=FALSE 

2668 SKI=230:IF mode=1 X%=19 ELSE IF m 
ode=5 X%=9 

28678 PROCsetupcharacters 

2686 leftS=TRUE 

2698 right$=FALSE 

2186 ENDPROC 


2128 DEF PROCstart 
2138 VDU23,1,0;9;9;0; 
2148 IF mode=1 w%=12 ELSE IF mode=5 w% 


2158 VDU19,G,7,0,9,0,19,3,1,0,9,6,19,2 
12,8,0,8,19,1,4,8,6,9 

2168 PRINTTAB (tree%, 13) ;CHR$236; STRING 
$ (w%,CHR$235) ; ;COLOUR 1:PRINT"START"; :C 
OLOUR3: PRINTSTRINGS (w% , CHR$235) ; CHR$233; 
2178 COLOUR 1:PRINTTAB( ( (xpoke+1) /2)-1 
9,5) ;"PRESS SPACE TO START";:REPEAT UNT 
IL GET=32: PRINTTAB( ( (xpoke+1) /2)-1@,5) ; 
SPC20; 

2188 ENDPROC 

2198 : 

2200 DEF PROCdispscore 

2210 IF mode=1 ta=16 ELSE IF mode=5 ta 
=6 

2226 IF g=ga%’ PROCclearrun:ENDPROC 
2238 PRINT: PRINT: PRINT: PRINT: PRINTTAB( 
ta) ;9;:IF g=] PRINT" GATE" ELSE PRINT" 
GATES"; TAB (ta) ;£1%;:IF £1%=1 PRINT" fla 
g down" ELSE PRINT " flags down" 

2249 IF g=ga% PROCclearrun 

2258 ENDPROC 


2268 : 

2276 DEF PROCendofrun 

2280 PRINT: PRINT 

2298 IF mode=1 tab=8 ELSE tab=@ 

2308 PRINTTAB(tab) ;"SAME RUN AGAIN (Y¥/ 
N) " 

2310 REPEAT:W=GET: UNTIL W=89 OR W=78:I 
F W=89 GOTO 2339 

2328 PRINT: PRINT: PRINTTAB(tab) "A DIFFE 
RENT RUN THEN (Y/N) ":REPEAT:W=GET: UNTIL 
W=89 OR W=78:IF W=89 RUN:ELSE VDU22,6: 
END 

233@ ENDPROC 

2348 : 

2358 DEF PROCclearrun 

2368 PRINT: PRINT: PRINT: PRINT: PRINTTAB ( 
ta-4) ;"ALL GATES PASSED"; 

2376 PRINT: PRINT 

2388 RESTORE 2430 

2398 REPEAT 

2486 READ P,D 

2418 SOUND 1,-15,P,D 

2426 UNTIL P=151 

2438 DATA 100,2,150,2,100,2,150,2,280, 
2,250,2,200,2,158,2,200,2,188,2,160,2,1 
40,2,120,2,100,2,80,2,120,2,160,2,200,2 
7248,2,230,2,220,2,200,2,175,2,178,2,16 
5,2,160,2,155,2,150,2,100,2,50,2,1,2,50 
72,108,2,58,2,106,2,58,2,100,2,151,2 
2448 ENDPROC 

2450 : 

2460 ON ERROR OFF:MODE 6 

2476 IF ERR<>17 REPORT:PRINT" at line 


";ERL 
@ 


2488 END 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


FASTER BASIC - P.J. Vincent 


When performing certain operations in Basic, some programming techniques are more 


efficient than others (timewise). Generally speaking, REPEAT-UNTIL is faster 


IF-THEN-GOTO, but FOR-NEXT 


than 


is faster than REPEAT-UNTIL. A GOSUB is slightly faster 


than a procedure, contrary to what the User Guide might suggest. & 


BASICALLY MISTAKEN - Roger Garratt 
Basic gets confused in assembler 


two basic solutions: use lower case variable names, or 


brackets. 


with variable names that begin with a capital 
‘A'; it thinks you want Accumulator addressing, and assembles accordingly. There are 
enclose the variable in 


AMUSING *FX CALL - W.J. Hicks 


Try *FX243,n where n is a number between @ and 255. Some, for example 69, 79, 200 


and 255, 
times to produce more effects, 
reset the machine afterwards. 


can have some very amusing results. Press the Break key or Return a few 
or experiment with other values! Control-Break will 
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A UNIVERSAL JOYSTICK ROUTINE FOR THE PLUS 1 


by Jason Kristiansen 


Many Electron owners will have bought, or be thinking of buying 
Acorn's Plus-1 expansion board. The majority of Electron games 
programs, however, do not have an joystick option available. This 
short utility will adapt most Basic and machine code programs to run 
with a joystick. 


The Analogue Joystick Adaptor Routine (AJAR for short) 
will enable you to use an analogue joystick and Plus-1 
interface instead of a set of keyboard keys in the vast 
majority of Basic programs and most commercial machine code 
games. When you have typed in the program, save it onto 
cassette before you run it. A small mistake in your 
typing could well not only stop the program from 
working but lose the entire program as well. 


MENU 

When you do run the program you are 
presented with a menu of options. The 
most important of these are the two 
(I and D) that actually set up the 
machine code to use the joysticks. 
There are two methods of reading the 
Electron's keyboard - using 
INKEY(-ive) and INKEY(+ive). Machine 
code games use machine code equivalents 
of these as well. AJAR can cope with 
programs using either or both methods. 
There are however two separate routines, 
one for each. Choosing the indirect option 
(I) will set up the code for using joysticks 
when the indirect key-reading method 
(INKEY(+ive)) is used. The option, D, will 
set up for direct, or INKEY(-ive), key 
reading. 


machine code game, a bit of 
experimentation is needed. The majority 
of commercial software uses the direct 
method (D) but some (of course) do not. 


Choosing either of these options 
allows you to choose which key each 
joystick action will emulate. This 
done, the code is assembled and it's 

back to the menu. 

“once either or both sets of code 
have been set up, you can exit 
the program (another menu option) 

and load your own Basic or machine 

code program. This will now work 
with the joysticks. 


If your game program is in Basic 
then you should use the routine to 
suit the method used in the 
program. If, however, you want 
to use joysticks with a 


POSITION OF THE ROUTINES 

Another option on the menu is one to 
change the position of the two machine code 
routines in the Electron's memory. There are 
default values provided in the program as it 
stands. These may not operate correctly with all 
commercial games. Option A allows you to examine and 
alter the position of either of the routines. 
Of course they must not overwrite each 
other if you are using both. 


Routine one is &68 bytes long and 
normally sits at &11@. Routine two is &99 
bytes long and normally sits at &966. &119 
and &966 were chosen because the routines 
are unlikely to be overwritten by the game 
at these places. 


Some locations where the routine(s) could 
start are as follows: 
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Locations Description Uses 
&119-&186 Top of stack Commercial 
games 
&990-&AE@ Buffer for OPEN Basic 
(IN/OUT/UP) without 
OPEN 
&BQG-SBFF Buffer for Basic 
function keys without 
£ keys 


&D@2-&DFF Rom cartridges Basic 
Disc expansion programs 


JOYSTICK SENSITIVITY. 

The routines check the voltage 
across the A/D converter using the 
machine code equivalent of ADVAL. If 
this value rises above a certain point 
(if the joystick is moved far up or 
left) the routines will return a 
'key-pressed' signal. 


The opposite is true for down/right. 
The further apart the values are, the 
less sensitive the joystick is. The 
option is given to adjust the default 
values of these 'Joyhigh' and 'Joylow’. 


SAVING THE ROUTINES 

The final option is to save just the 
machine code routines generated by this 
program. Once you have assembled the 
code (using option D or I) choosing 
option S will allow you to save either 
or both of the routines to cassette 
under a filename of your choice. These 
routines can then be loaded into the 
machine and run ready for use with a 
game by typing *RUN "filename". The 
advantage of this is that the routines 
are very short and can be loaded into 
your Electron much quicker than the 
whole of AJAR. 


TECHNICAL DETAILS 

The procedure, PROCgetkeys, inputs 
the user's choice of keys amd 
translates them into INKEY(-ve) and 
ASCII values. The centre of the program 
contains the two assembler routines, 
‘assemdiread' and ‘assemindiread', as 
procedures. 


PROCassemdiread works by 
intercepting a keyboard vector amd 
checking joystick values. It also 
enables two ADC channels which might 


otherwise be disabled by the host 
program. 


PROCassemindiread intercepts the 
interrupt vector IRQV] at &204 to check 
the joystick and insert corresponding 
values into the keyboard buffer. 


10 REM PROGRAM AJAR 
2@ REM VERSION E@.2 
3@ REM AUTHOR J.Kristiansen 


4@ REM ELBUG NOVEMBER 1984 
5@ REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
18@ ON ERROR GOTO 2819 
119 : 
128 MODE6 
138 PROCinit 
148 REPEAT: PROCmenu: UNTIL OPTS="E" 
158 PROCexitprog 
168 END 
176 : 
1908 DEFPROCgetkeys 
101@ KEY=&FF 
1626 *FX4,1 
1038 CLS: PRINT 
1848 RESTORE 
1659 FOR getkey=1 TO 5 
1966 READ direction$ 
1078 PRINT"PRESS ";direction$;" KEY" 
1086 *FX21,0 
1098 IF KEY=64 OR KEY=@ KEY=&FF:TIME=0 
:REPEAT UNTIL TIME=398 
1196 A$=122:REPEAT 
1118 !getxblock=USR (OSBYTE) 
1126 keys (2,getkey) =INKEY (@) 
1138 IF INKEY(-1) KEY=@ 
1146 IF INKEY(-65) KEY=64 
115@ UNTIL (keys (2,getkey) <>-1 AND get 
xblock?1<>255) OR KEY=@ OR KEY=64 
116@ IF KEY<>@ AND KEY<>64 KEY=getxblo 
ck?1 
1176 keys (1,getkey) =KEY+&8@ 
1188 NEXT getkey 
1198 *FX 21,0 
1208 *FX 4,6 
1218 ENDPROC 
1220 DATA LEFT, RIGHT,UP, DOWN, FIRE 
1238 : 
1240 DEFPROCassemdiread 
1256 FOR PASS=@ TO 3 STEP3:P%$=asseml% 
1268 [OPT PASS 
1276 .newkeyentry:BVS finish 
1288 BCC finish 
1298 .checkjoystick: PHA 
1366 CMP# keys(1,1) 
1319 BEQ left 
1328 CMP#keys (1,2) 
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1336 BEQ right 

1348 CMP#keys (1,3) 

1358 BEQ up 

1368 CMP#keys (1,4) 

1378 BEQ down 

1388 CMP#keys (1,5) 

1398 BEQ fire 

1408 .notvalidkey:SBC:CLV: PLA 

1419 .finish:JMP OSKEY 

1420 .left 

1439 LDX#1:JSR osjoydetect 

1448 CPY#joyhigh:BCS joypressed 

1458 BCC nojoy 

1466 .right 

1476 LDX#1:JSR osjoydetect 

1488 CPY#joylow:BCC joypressed 

1496 BCS nojoy 

1568 .up 

1519 LDX#2:JSR osjoydetect 

1526 CPY#joyhigh:BCS joypressed 

1538 BCC nojoy 

1548 .down 

1558 LDX#2:JSR osjoydetect 

1566 CPY#joylow:BCC joypressed 

1578 BCS nojoy 

1588 .fire:LDA#16:LDX#2:JSR OSBYTE:\EN 
ABLE 2 ADC CHANNELS 

1596 LDX#0:JSR osjoydetect 

1608 TXA:AND#3 

1618 BNE joypressed 

1628 .nojoy CLC:PLA:BCC finish 

1638 .osjoydetect :LDA#128:JMP OSBYTE 
1648 .joypressed: PLA: LDA#128:RTS 

1658 .execl SEI:LDA#newkeyentry MOD 25 
6:STA &228:LDA#newkeyentry DIV 256:STA 
&229:CLI:RTS 

1666 .finl 

1676 J 

1688 NEXT PASS 

1696 DIM alterdirec 5¢ 

1766 P%=alterdirec 

1710 [SEI:LDA# newkeyentry MOD256:STA& 
228:LDA# newkeyentry DIV256:STA&229:CLI 
:RTS 

1728 ] 

1738 ENDPROC 

1746 : 

1758 DEFPROCaltervectors (VECTOR) 

1768 IF VBCTOR=1 CALL alterdirec:alter 
1=TRUE 

1776 IF VECTOR=2 ?0SFVEC=osfile2 MOD25 
6:OSFVEC?1=osfile2 DIV256:CALL alterirg 
s:alter2=TRUE 

1788 IF alter] AND alter2 PROCexitprog 
1798 ENDPROC 

1806 : 

1818 DEFPROCassemindiread 

182@ FOR PASS=@ TO 3 STEP3 

1836 P%=assem2%: [OPT PASS 

1840 ENTRY 
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1850 PHP: PHA 

1868 DEC fullflag:LDA fullflag:CMP#sAl 
:BNE finish2 

1878 TXA:PHA:TYA: PHA:CLV 

1888 LDA#128:LDX#1:JSR OSBYTE 

1898 TYA:CMP# joyhigh:BCS left 

1986 .read2 CMP#joylow:BCC right 

191@ .read3:LDA#128:LDX#2:JSR OSBYTE 
1926 TYA:CMP#joyhigh:BCS up 

1938 .read4 CMP#joylow:BCC down 

1949 .readS LDX#0:LDA#128:JSR OSBYTE 
1956 TXA:AND#3:BNE fire:LDA#&B2:STA fu 
llflag 

1968 .finish: PLA: TAY: PLA: TAX:.finish2: 
PLA: PLP 

1976 JMP IRQREQ 

1988 .left PHA:LDA#(keys(2,1)) 

1996 JSR keybuffer 

2600 PLA 

2818 BVC read2 

2626 .right LDA#keys (2,2) 

2038 JSR keybuffer 

2048 BVC read3 

2658 .up: PHA:LDA#keys (2, 3) 

2068 JSR keybuffer 

2070 PLA:BVC read4 

2688 .down:LDA#keys (2, 4) 

2098 JSR keybuffer 

2198 BYC read5 

211@ .fire LDA#keys (2,5) 

2128 JSR keybuffer 

2138 BVC finish 

2148 .keybuffer : TAY: LDX#0: LDA#1 53: JMP 
OSBYTE 

215@ .fullflag:EQUB&FF 

2166 .osfile2:PHA:SEI:LDA# IRQREQ MOD2 
56:STA IRQV1:LDA# IRQREQ DIV256:STA IRQ 
V1+1:PLA:CLI:JSR OSFILE:.alterirq SEI:L 
DA#assem2% MOD256:STA IRQV1:LDA#assem2% 
DIV256:STA IRQV1+1:CLI:RTS 

2178 .exec2 LDA#osfile2 MOD 256:STA OS 
FVEC:LDA #osfile2 DIV 256:STA OSFVECt1: 
JMP alterirg 

2186 .fin2 

2196 j 

2208 NEXT PASS 

2218 ENDPROC 

2226 : 

2230 DEFPROCinit 

2248 DIM getxblock 4,keys (2,5) 

2258 OSBYTE=!&2@6A AND&FFFF 

2268 joyhigh=&C9: joylow=&43:REM LIMITS 
FOR JOYSTICK DETECTION 

2276 assem1$=&119:REM START ASSEMBLY L 
OCATION FOR DIRECT READ ROUTINE 

2288 assem2%$=&966:REM LOCATION FOR IND 
IRECT READ ROUTINE 

2298 OSKEY=!&228 AND&FFFF 

2300 IRQV1=&204: IRQREQ=!&264 AND&FFFF 
2310 OSFVEC=&212:OSFILE=!&212 AND&FFFF 
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2328 alter1=FALSE:alter2=FALSE 

2338 ENDPROC 

2348 : 

2358 DEFPROCmenu 

2368 CLS:PRINT'"JOYSTICK CONFIGURE UTI 
LITY"'STRINGS (32,"_")"" 

2376 PRINT'"A-ALTER OR EXAMINE ASSEMBL 
Y DETAILS"''"D-SET up CODE FOR READING 
KEYS DIRBCTLY"''"I-SET up CODE FOR READ 
ING INDIRECTLY"''"S-SAVE ASSEMBLED CODE 
"tt"E-EXIT THIS PROGRAM"'' 

2388 OPTS=GET$ 

2398 IF OPTS="A" 

2400 IF OPTS$="D" 

2419 IF OPTS="I" 

2426 IF OPTS="S" 

24308 ENDPROC 

2448 : 

2458 DEFPROCexamine 

2468 CLS:PRINT'"Limits of joystick det 
ection" 

2478 joyhigh=FNquest ("LEFT/UP", joyhigh) 

2488 joylow=FNquest ("RIGHT/DOWN" , joylo 
w) 

2490 PRINT''"Start assembly locations 
for routines:"' 

2500 assem] %=FNquest ("Direct read joys 
tick routine",assem1%) 

2510 assem2%$=FNquest ("Indirect read jo 
ystick routine" ,assem2$) 

2528 ENDPROC 

2536 : 

2540 DEFFNquest (quest$,var) : PRINT ques 
t$;"2&"; :xpos=POS: ypos=VPOS: PRINT TAB(x 
pos ,ypos) ;~"var;: INPUT TAB(xpos,ypos) res 
pS: IF respS$="" THEN =var ELSE =EVAL("&" 
+resp$) 

2558 : 

2566 DEFPROCdiread 

2576 IF asseml%=assem2% OR alter] PRIN 
T'" INVALID ASSEMBLY DATA/CODE ASSEMBLED 
" SWAIT=INKEY (9) : ENDPROC 


PROCexamine 
PROCdiread 
PROCindiread 
PROCsave 


2588 PROCgetkeys 

2598 PROCassemdiread 

2608 PROCaltervectors (1) 

261 ENDPROC 

2626 : 

2638 DEFPROCindiread 

2648 IF asseml$=assem2% OR alter2 PRIN 
T'" INVALID ASSEMBLY DATA/CODE ASSEMBLED 
" sWAIT=INKEY (78) : ENDPROC 

2658 PROCgetkeys 

2668 PROCassemindiread 

2676 PROCaltervectors (2) 

2688 ENDPROC 

2698 : 

2768 DEFPROCexitprog 

2718 PRINT'''"Now load your program as 
normal."'' 

2726 END 

2738 DEFPROCsave 

2749 IF NOT alterl AND NOT alter2 THEN 
ENDPROC 

2758 CLS:PRINT ''' "D-SAVE DIRECT CODE 
"!''"T-SAVE INDIRECT CODE" 

2768 IDS=GETS$ 

2776 IF IDS="D" AND alter] THEN INPUT 
‘'"PILENAME: "NMS:OSCLI "SAVE "+LEFTS (N 
MS,7)+" "+STRS7 (assem1%) +" "+STRS~ (fin1 
)+" "+STRS~ (exec]) 

2780 IF IDS="I" AND alter2 THEN INPUT 
''"PILENAME: "NMS:OSCLI "SAVE "+LEFTS (N 
MS,7)+" "+STRS~ (assem2%) +" "+STRS~ (fin2 
)+" "+STRS~ (exec2) 

2798 ENDPROC 

2890 : 

2818 ON ERROR OFF:MODE 6 

2828 IF ERR=17 END 

2838 REPORT: PRINT" at line ";ERL 

284@ END 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


BEEP ON ERROR - D. Constable 

This short routine causes the computer to emit a short beep when an error is 
detected - a feature found on some other computers e.g. Apple and Acorn Atom. The 
program works by re-directing the BRK vector at &202 and &283 to a piece of code 
which prints Ctrl-G to the screen, then jumps to the normal error handling routine. 
To use the program, run it, and then save it with: 

*SAVE ERRBEEP 9D@1 9D22 

Thereafter you need only type *RUN ERRBEEP to put it into effect. 


18 FOR J%=8 TO 2 STEP 2:P%=&D@1 68 RTS 

26 (OPT J% 76 -start 

36 LDA &202:STA &7@:LDA &203: STA &71 83 PHP: PHA: LDA#7: JSR&FFEE 
49 LDA #start MOD 256: STA &292 99 PLA: PLP: JMP (&79)] 


56 LDA #start DIV 256: STA &263 NEXT: END 
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EIT DEN LOA DIL ELBE GPE ELSIE AIT ES OS CRITE SE EE LEO I LOL ET ESE LIT LO RL FELT OM, 
WHIRLPOOL 
by D. D, Harriman 


The Electron is blessed with an excellent potential for graphics 
displays which is show off well by this program. Not only does it 
draw a impressive picture on your screen but animates it as well. 


This. program is not long but it: is 
very effective. Type the program into 
your Electron especially carefully. It 
involves some quite complicated maths 
which will not work at all if you make 
just a few little mistakes. When you 
have. typed in the program. Save it: onto 
a cassette before you run it, just in 
case. 


When you do run the program, a:vast 
whirlpool is slowly drawn out to cover 
the whole screen, swirling: and spinning 
all the while. Whirlpool appears three 
Ginmensional and it is in full. colour, 
but the colours are chosen to give a 
good effect with a, black. and white 
display as well as a colour one. Just 
when you thought it was safe to go »ack 
to the plug hole... 


PROGRAM NOTES 

This program is in three distinct 
parts. The first part to be executal is 
@ procedure, PROCsetup, that makes 
everything ready for the rest of the 
program. The most important action of 
this program section is to work out 
several cosine and sine | values... These 
are. put into the arrays, cos.ani sin. 
The Electron is fairly Slow ° at 
calculating trigononetrical values. As 
the main part of the program uses these 
values several times each, it speeds up 
the drawing considerably to calculate 
them in advance. This calculating takes 
quite a while so. a ‘please weit’ 
message is put up on the screen to 
reassure you. 


~ pROCsetup also does such housework 


as Switching off 
Gagne: the screen. 


the — cursor ani 


; tthe main part of ihe program uses 
two procedures, PROCspiralone and 
PROCspiraltwo, to draw the two parts of 
the: whirlpool using the trig values 
obtained earlier. As these spirals. are 
drawn out, the colour used for drawing 
is Saudis changed, cycling through 


the sixteen colours available in the 
mode two used. The colours are being 
constantly redefined, using the vbu19 
command, by the procedure, PROCcolour, 
to give the illusion of a moving 
picture. 


This is. enother) example of the 
technique of animating graphics using 
the VDU)9 command as described in the 
last part (October ELBUG) of our 
Electron Graphics series, 


1@ REM PROGRAM WHIRLPOOL 
2@ REM AUTHOR D.D.Harriman 


3@ REM ELBUG NOV 1984 
46 REN PROGRAM SUBJECT TO COPYRIGHT 
50: 
6@ ON ERROR GOTO 1470 
1: 
188 MODE 2 
119 PROCsetup 
128 PROCspiralone 
138 PROCspiraltwo 
146 REPEAT 
15@ PROCcolour 
168. UNTIL, PALSE 
170 END 
186 : 
1980 DEF PROCsetup 
101% PRINT TAB(5,5) "SETTING UP"TAB(3,8 
)"Please wait..." 
102¢ DIM CB(8) 
1939 DIM sin(62) ,cos(62) 
1449 FOR F%=1 TO 8: READ C& (FS). NEXT FS 
1056 Bt=6 
1068 SOR ‘P=0 TO PI*2 STEP PI/30 
1073. sin (BS) =SIN Ficos (Bt) =COS F 
1888 BS=BS+1 
1090 NEXT F 
1) OGeCs=v. 
111@ VDU23,1,9; 8:97; 
1126 CLS ; 
1133, ENDPROC 
1146: 
1158 DEF PROCspiral two 
1168. BE=389 
1176 FOR 13=1 TO 20 
118@ FOR A&=8 TO 69 


: “ * 4 : 


16 


1276 BS=51 

1288 MOVE 680,498 

1298 FOR I%=1 TO 4 

1308 FOR A%=@0 TO 60 

1318 PROCcolour 

1328 B%=B%+1:GCOLG,B% MOD 14+1 

1338 X%=648+cos (A$) *BS 

1348 Y$=370+B% DIV 2+sin(A%)*B% DIV 3 
1358 DRAW X%,Y% 

1368 NEXT A% 

137@ NEXT I% 

138@ ENDPROC 

1398 : 

1480 DEF PROCcolour 

1416 C%=C+1 

1426 FOR Gt=1 TO 8 

1438 VDU 19, (C$+G%) MOD 15+1,C%(G%) 79; 
1448 NEXT G% 


1198 PROCcolour 1458 ENDPROC 
1260 BS=B%+1:GCOLG,B% MOD 15+1 1469 : 
1210 DRAW 64G+cos (A$) *B$,512+sin (A$) *B 1476 ON ERROR OFF 
% DIV 3 1480 MODE 6 
1220 NEXT AS 1496 IF ERR<>17 REPORT:PRINT " at line 
1236 NEXT I$ "SERL 
1244 ENDPROC 1508 END 
1259 : 1518 : 
1269 DEF PROCspiralone 1526 DATA @,4,1,5,2,6,3,7 et 
NEWS NEWS NEWS 
MODE 7 FOR THE ELECTRON GO FORTH 


You've probably heard of the promise 
of an add-on, from Sir Computers, to 
give your Electron the much vaunted 
mode 7 of the BBC micro. Sir displayed 
a prototype of the mode 7 adaptor at 
the recent Acorn User Show. 
Unfortunately it seems that Sir bit off 
more than it can, at least for the 
moment, chew. Problems with the 
software mean the adaptor won't be on 
sale for another few weeks at the 
earliest. You can grumble at Sir on 
§222-621813. 


TALK AMONGST YOURSELVES 

If you are dying to enter the world 
of '‘coms' and 'hacking', you will be 
pleased to hear that Protek Computing 
(8506-415353) are working on an 
interface for the Electron that will 
allow you to connect most standard 
modems to your computer. The interface 
will be out at the end of the year and 
retail for £24.95. This will include 
software to run Protek's own modem 


(£59.95) to both access Prestel and - 


Operate in a ‘user to user' mode. 


If you fancy trying your hand at 
Forth and you have one of the Electron 
Rom expansion boards then Skywave 
software (@202-302385) has the Rom for 
you. Multi-Forth 83 is a complete 
implementation of the Forth 83 standard 
for the Electron. Not only does this 
allow you to enjoy the delights of the 
Forth language but it also gives your 
Electron multitasking - the ability to 
run several (Forth) programs at once. 
Multi Forth 83 costs £48. You'll find 
Skywave at 73 Curson Road, Bournemouth, 
BH] 4PW. 


BBC GOES ELK 

BBCsoft is now releasing software 
for the Electron and converting many of 
the existing BBC micro range. The much 
acclaimed White Knight chess package is 
amongst the titles. Others include 
Wordmover (a text editor), Locomotion 
(a graphics adventure type game), and 
‘Maths-with a story!' (an educational 
Piece). All these are £9.95 except 
Locomotion which is £6.95. Further 
conversions are on the way. 
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POWERSOFT JOYSTICK INTERFACE 
Reviewed by Geoff Bains 


There are now several joystick 


interfaces available for the 


Electron. Powersoft is fairly late to enter the race. Geoff Bains 


sees what extra it has to offer. 


Product : Joystick interface 
Price : £24.95 
Supplier : Power software, 
12 Hagley Road, 
Stourbridge, 
DY8 1PS. 


(@384) 376811 


Most of the joystick interfaces that 
you can buy for your Electron are 
either very expensive, very 
inconvenient to use, or both. Powersoft 
has overcome these problems with its 
new joystick interface. The Powersoft 
interface enables you to use joysticks 
with any Basic or machine code game 
instead of the keyboard. 


The Powersoft model comes in a small 
plastic case, coloured the inevitable 
cream. On one side of this there is a 
socket to connect the interface to the 
Electron's expansion port and on the 
other a single standard Atari type 
joystick socket. 


This interface, like all the 
joystick interfaces for the Electron, 
except Acorn's own Plus-1l, is for 
switch type joysticks. These are not as 
good as the analogue type for some 
serious applications but are ideal for 
playing arcade games. It is a shame 
that two joystick sockets could not 
have been included. As it is the 
Powersoft interface will be useless for 
two player games (though these are 
admittedly very thin on the ground). It 
is also regrettable that there is no 
connector to allow further expansions 
to be plugged into this interface. 


Despite these quibbles, the 
Powersoft interface wins hands down for 
convenience. When you switch on your 
Electron, as well as the normal ‘Acorn 
Electron 32K' message there now appears 
‘Powersoft Joystick Interface’. At this 
moment the joystick will do nothing. 
Type *Joy and the interface's built in 
software will present you with a series 


ELBUG 


NOVEMBER 1984 


eckxon. 


of menu questions to allow you to 
configure your joystick to take the 
place of any set of keys. There's no 
waiting for cassettes to load the 
interface's software. 


There are some nice touches to the 
software, too. If you try to define a 
single joystick action to take the 
place of two keys (say, the fire button 
operating both the laser and the bombs 
in 'Moonraider'), the software checks 
that you do in fact mean that. When 
you've finished the complete 
configuration, a further check is made 
that all is correct before going on. 


Once you have defined which keys are 
going to be duplicated by the joystick, 
your Electron returns to normal. Normal 
that is, except that any software 
reading the keyboard will now 
unwittingly read the joystick port as 
well. Now you can load your favorite 
game, or write yourself a new one, and 
away you go, joystick in hand. One 
advantage of the Powersoft interface 
over others around is that you can 
always switch back to using keys in the 
middle of a game because the two are 
running in parallel. 


There are in fact two distinct 
methods of reading the Electron's 
keyboard that commercial machine code 
software uses. The Powersoft interface 
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can cope with either of these but you 
have to say which it is that your game 
is using when defining the key set at 
switch-on. As a game that uses one 
method won't be able to use the 
interface configured for the other 
method, it can be a time consuming and 
tedious affair to find out how to 
configure the interface for any 
particular game. Fortunately most games 
use method one (as Powersoft calls it) 


only. In any case Powersoft is willing 
to sort out any difficult cases for you 
if you run into problems. 


The Powersoft interface is certainly 
good value for money. It will give you 
joysticks with your Electron in a more 
convenient way and for less money than 
anything else anything else currently 
on the market. e 


SOFTWARE FOR GAMES PLAYERS 


Frenzy is a deceptively simple game 
that will keep you happily frustrated 
for hours. Of course the game is 
dressed up in the now-standard sci-fi 
scenario: You control a robot craft in 
a scientific research centre in an 
attempt to destroy the stray lepton 
particles (a sort of high speed 
caterpillar) that are darting around 
the building. Your craft leaves an 
‘ion' trail. When you enclose an area 
of the building with the trail it is 
filled in and, if the lepton is inside 
that area, it is destroyed. 
Unfortunately the filling operation 
takes a tediously long time on the 
sedate Electron. If a lepton touches 
the craft or the trail while the loop 
is still open then you loose a life. 
Tit for tat. 


There are 'Chasers' at large in the 
research centre too. These take a 
particular dislike to robot craft and 
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follow it around, along the ion trails, 
attempting to destroy it with a single 
touch. Every time your craft fills in a 
bit of the screen you gain points. A 
constantly decreasing bonus encourages 
you to be quick. 


Once you have mastered the first 
screen with a single lepton, there are 
more in store with multiple leptons and 
plural chasers. The game is not 
graphically stunning, but then it 
doesn't have to be. It relies for its 
attraction, on your perseverance and 
its own ability to frustrate and egg 
you on for just one more go. 


Name 


: Bumble Bee 
Supplier : Micro Power 
Price 2: £6.95 
Reviewer : Geoff Bains 
Rating : ** 


Yet another nail in Pacman's coffin, 
Bumble Bee is very similar in nature to 
Mr.P with a few embellishments. It is a 
bee that you steer around the maze, 
this time, and it is pollen that you 
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have to eat. The ghosts have turned to 
spiders in this version too. Rather 
than just a maze, you steer around a 
network of swing gates. These block off 
paths to the spider, but the bee can 
push through them. The odd (presumably 
poisonous) toadstool also lies in wait 
for unsuspecting drones. There are no 
power pills in this game, nor even 
power pollen, you have to kill the 
spiders by luring them into the barrels 
of fire that litter the garden. 


The theme of this game is, to say 
the least, contrived. However if it 
appeals to you, you won't be 
disappointed by the standard of 
programming. This is well up to Micro 
Power's usual quality. The graphics are 
good and the action smooth. 


Name : Superfruit 
Supplier : Simonsoft 
Price s £5.95 
Reviewer : Geoff Bains 
Rating 3; ** 


Credit 


£1.80 


Superfruit is a fruit machine 
simulation game. All the features that 
you'd find on the real thing are there 
for the trying. Holds, nudges, 
win-lines, gambles, and so on, along 
with features that you perhaps wouldn't 
expect; like a 'bounce' on the reels as 
they settle into position. 


The only problem with Superfruit is 
that it is tediously slow. Gamble 
options that are supposed to flash 
before your eyes, limply meander across 
the screen. The reels move so slowly 
that you can easily fall asleep half 
way through. However, despite this lack 
of speed (far more the fault of the 
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the machine than the program) this game 
is an excellent simulation and a boon 
to the penniless addict. 


Name : Stock Car 
Supplier : Micro Power 
Price 2 £6.95 
Reviewer : Geoff Bains 


Rare amongst 


computer software, 
Stock Car is a two player game. If you 
are short of friends the Electron will 
happily take the opposing role. 


You drive a car around one of six 
stock car racing circuits, displayed 
from above. The only controls are left 
and right steering, and up and down, 
through the four gears. If that's too 
simple for you, you'll be pleased to 
hear that there are various obstacles 
to contend with. 


There are three opposing cars 
driving round the circuit. One of these 
is controlled by the other (human) 
player if that option is taken up. Oil 
slicks litter the circuits and the 
corners have the unusual feature of 
variable skid! Unlike the real thing, 
there is little chance of getting hurt 
in this game. If you hit an opposition 
car you don't crash, you don't lose a 
life, you just slow down a little. 
Punishment enough as speed is the 
winning factor in this game. 


The stock car graphics are not 
realistic. The cars bend and distort as 
they corner and the whole game stops 
for a short break as the oil slicks 
change position. The idea of this game 
is not a new one and the implementation 
does not make the most of the Electron. 
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Name : Swag 

: Micro Power 
: £6.95 
Reviewer : Alan R Webster 


ake 


Swag is a brand new one or two 
player game for the Electron featuring 
mode 2 multi-coloured graphics and a 
practice feature where you play against 
the computer. 


The game of $wag involves you 
pitting your wits against the other 
player to become the first person to 
steal £256,000 in diamonds. There are 
several killer droids that try to 
hamper you in your task of stealing the 
diamonds. You can also shoot at police 
cars, but this has the effect of making 
them angry, and they then give chase 
(giving extra money to your opponent). 
Apparently the only way you can stop 
these police cars from chasing you is 
by "...drinking a can of bear..."! (is 
this a sly advert for a famous lager?) 


Overall Swag is a very hectic and 
enjoyable game, giving great value for 
money. 


Name : Super Pool 
Supplier : Software Invasion 
Price : £7.95 

Reviewer : Alan R Webster 
Rating: **** 


[ as ““2el] Te | 
8e 
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At last, an arcade game with no 
lasers! Super Pool is a_ simulation of 
Pool, the table game, but on a micro. 


It's a scaled down version of the 
real game with just the one white cue 
ball, and six coloured balls numbered 
from 1 to 6. 


The object of the game is first to 
pot all of the balls, and to do this 
you are allowed 68 seconds for each 
shot. Each time you pocket one of the 
balls, you gain a number of points and 
these points can be increased if you 
pot another ball in the same pocket. 


The game features excellent 
graphics, and is both smooth and 
realistic. This is an excellent example 
of what can be achieved on an Electron. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


IF-THEN-ELSE CONSTRUCTS 


If you are using IF <condition> <action>, and your 


action happens to be a 


* command, then Basic requires the THEN to be present, or it gets confused as to what 


exactly you mean. 


Also, if you wish to perform a test for the opposite of a condition, for example 


the opposite of: 

IF A=C AND B=D THEN .... 
then, instead of: 

IF NOT (A=C AND B=D) THEN .... 
you can use 

IF A=C AND B=D ELSE .... 
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RED ALERT 


by Alan Barratt and David Green 


If chess is too time consuming, 
draughts too predictable, then 


solitaire too anti-social and 


try this simple to learn yet 


challenging and decidedly unpredictable board game. 


RED ALERT is a game of Scandinavian 
origin for two players. It is played on 
a six by six square board. Players take 
turns to place one counter at a time 
onto the board. 


One player has pale blue counters 
and the other yellow. You are not 
allowed to place a counter directly on 
top of an opponent's counter but you 
can, and indeed should, build up on 
your own. 


Each square has a critical mass. 
This value is the number of adjacent 
squares (horizontal and vertical) which 
the square has. This means that the 
critical masses are as follows: 


Corner squares ... 2 


Edge squares ..... 3 
Inner squares .... 4 


Once the number of counters on any 
square reaches that square's critical 
mass the square '‘explodes' and the 
counters disperse, one onto’ each 
adjacent horizontal and vertical 
square, leaving the original square now 
empty. This is the way to capture your 
opponent's counters: arrange an 
explosion next to an occupied square. 
Any counters on these adjacent squares 
become your own, and remain on _ these 
squares, 


When well into a game, with several 
counters across the board, exploding 
one square can lead to a chain reaction 
that spreads right across the board. 
This gives Red Alert its 
unpredictability and challenge. It is 
quite possible to be down to two or 
three counters with your opponent 
having fifty, and then see him wiped 
out with a single, clever, move. 


The winner is the player who 
eliminates all his opponent's counters. 
Alternatively, the game may be played 
for a fixed number of moves, the winner 


being the player with the most counters 
at that stage. 


A counter is placed by designating 
the column and row positions. These 
both count from the bottom left hand 
corner of the board. The total number 
of counters on the board is displayed 
at the bottom of the screen at all 
times. 


Red Alert makes colourful use of the 
Electron's mode 2 display. If you only 
have a black and white TV or monitor, 
the counters are shaped differently so 
that you can tell your own from your 
opponent's. 


1@ REM Program RED ALERT 
26 REM Authors Alan Barratt 


36 REM & David Green 
40 REM Version 1.9 
50 REM ELBUG NOV 1984 


6@ REM PROGRAM SUBJECT TO COPYRIGHT 
76 : 

8@ ON ERROR GOTO 2680 

9G : 

198 MODE 1 

118 PROCinstr 

128 MODE 2 
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130 PROCsetup 

148 PROCscreen 

150 PROCgame 

168 PROCfinish 

176 IF Z<3 THEN RUN 

188 END 

198 : 

1006 DEF PROCgame 

1010 REPEAT 

1020 Z=Z+1:Z1=3-Z :B=B+] :C2=0 

1638 VDU19,4,4;9; 

1848 COLOUR 128:CLS 

165@ PRINT TAB(1,1) PLAYERS(Z MOD2) 
1668 COLOUR 7 

1678 PRINT TAB(13,1) "Total"TAB(15,3) ;B 
-1 

1988 FOR I=] TO 2 

1698 PRINTTAB (3*I-2,1+2*1I) ;COS(I); 
1108 *FX15,9 

111@ REPEAT 

1126 XY$(I)=GETS 

113@ UNTIL ASC(XY$(I))>48 AND ASC(XYS( 
I))<55 

1149 PRINT XY$(I) 

115@ SOUND1,-15,220,4 

1168 PROCwait (9.1) 

1178 NEXT I 

1188 X%=VAL(XY$(1)) :Y$=VAL(XY$ (2) ) 
1199 IF newS (X%,Y%) =XO$(Z1) PROCsorry: 
GOTO1@5@ ELSE newS$ (X%,Y%)=XO$ (Z) snew(X% 
7Y%) =new (X$,Y$) +1 

1206 REPEAT 

1218 Cl=6:C3=0:C4=0 

1226 FOR X%=1 TO 6 

1238 FOR Y%=1 TO 6 

1240 IF NOT (newS (X%,Y%) =old$ (X%,Y%) AN 
D new(X%,Y%) =old(X%,Y%)) PROCplot (X%,Y% 
1Z) 

1250 IF C2<2 AND new(X%,Y%) >=D(X%,Y$) 
PROCupdate 

1268 IF newS$(X%,Y%)=XO$(Z1) C3=1:C4=1 
127@ NEXT Y$% 

1286 NEXT X% 

1296 IF C4=@ C2=C2+1 ELSE IF C2=3 Cl=@ 
1360 UNTIL Cl=0:2=2-Z 

1316 UNTIL C3=@ AND B>1 

1328 ENDPROC 

1336 : 

1340 DEF PROCsetup 

135@ DIM new(6,6) ,old(6,6) ,newS$ (6,6) ,o 
1d$ (6,6) ,D(6,6) 

1368 DIM XO$(2) ,OX$(2,3) ,PLAYERS$(1) ,CO 
$(2) ,XY$ (2) 

137@ PLAYERS (@) =CHRS$17+CHRS6+"Blue" 
138@ PLAYERS (1) =CHRS$17+CHR$3+"Yellow" 
1398 VDU24,G; 224; 1215; 1623; 

1486 VDU28,9,31,18,25 

1410 VDU23,224,&FF,&FF,&FF,&FF,&FF,&FF 
7&FF ,&FF 
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1428 VDU23,225,&FG,&F0,&F0,&FG,&F0,&FO 


7&FO SFO 

1438 VDU23,1,9;0;9;0; 
1449 FOR X%=1 TO 2 
1450 FOR Y%=1 TO 3 


1460 READ A,B 

1476 OX$(X%,Y%)=CHRSA+CHRSB 
1486 NEXT Y$% 

1498 NEXT X% 

1588 COS (1)="Column?":COS (2) ="Row?" 
1518 XOS(1)="X":X0O$ (2) ="0ld" 
1520 FOR X%=1 TO 6 

1530 FOR Y$=1 TO 6 

154@ READ D(X%,Y%) 

1558 newS (X%,Y%)="""sold$(X%,Y%)="_" 
1568 NEXT Y% 

157@ NEXT X% 

1588 B=6:2=8 

1598 GCOLG,135:CLG 

1680 PROCalert 

161@ ENDPROC 

1628 : 

163@ DEF PROCwait (new) 

1648 TIME=0 

1650 REPEAT UNTIL TIME > 50*new 
166@ ENDPROC 

1676 : 

1688 DEF PROCsorry 

1698 SOUND1,-15,112,5 

1786 SOUND1,-15,198,18 

171@ SOUND1,-15,96,1 

1726 SOUND1,-15,180,18 

1738 COLOUR 12:PRINT TAB(11,3) ;"Not"TA 
B(11,5) "Allowed" 

1748 COLOUR @:PROCwait (4) :CLS 
1758 ENDPROC 

1768 : 

1778 DEF PROCclear (X%,Y%) 
1788 VDUS5 

1798 GCOLG,4 

1888 FORE%=1TO3 

181@ MOVE (X%*3-2) *64, 252+ (Y$*4—4+E$) *32 
1820 PRINT CHR$224+CHR$224 
1838 NEXT 

1848 VDU4 

1858 ENDPROC 

1868 : 

1878 DEF PROCscreen 

1880 VDU19,7,11;9;19,4,11;0; 
1896 FOR X%=1 TO 6 

1998 FOR Y%=1 TO 6 

1919 PROCclear (X$,Y%) 

1926 NEXT Y$% 

1936 NEXT X% 

1946 VDUI9,4,4;6;19,7,7;9; 
1958 ENDPROC 

1966 : 

1978 DEF PROCplot(X%,Y%,Z) 
1988 PROCclear (X%,Y%) 
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1996 IF new$(X%,Y%)<>"_ " VDU5:GCOLG, 3* 
Z:FOR E%=1 TO 3:MOVE(X%*3~2) *64,252+ (Y% 
*4-4+E%) *32: PRINT OXS$(Z,4-E%) :NEXT ES:M 
OVE (X%*3-3) *64, 252+ (Y$*4-—2) *32:GCOLG,7: 
PRINT" "snew(X%,Y%) : VDU4 

2068 old(X%,Y%) =new (X%,Y%3) 

2018 old$(X%,Y%) =newS (X%, Y$) 

2628 Cl=1 

2038 ENDPROC 

2048 : 

2858 DEF PROCupdate 

2668 VDU19,4,1;9;:PROCalert 

2076 IF X%<>6 newS (X%+1 , Y%) =newS (X%,Y% 
) new (X$+1 ,Y$) =new (X$+1 , YS) +1 

2086 IF X%<>1 newS (X%-1, Y%) =newS (X%, Y% 
) new (X$-1 , YS) =new (X$-1 , YB) +1 

2096 IF Y&<>6 newS (X%, Y$+1) =newS (X%, YS 
) snew (X%,Y$+1 ) =new(X$,Y$+1) +1 

2180 IF Y&<>1 newS (X%, Y$-1) =newS (X%, YS 
) new (X%, Y$-1 ) =new (X%, Y$-1) +1 

2118 new(X%,Y%) =new(X%, Y%) -D (X%, Y%) 

2128 old(X%,Y$%) =18 

2136 IF new(X%,Y%)=0 newS (X%,Y$)=""_" 

214@ PROCsmash (X%,Y%) 

2158 PROCplot (X%,Y%,Z) 

2168 ENDPROC 

2176 : 

2188 DEF PROCsmash (X%, Y$) 

2198 VDUS 

2206 PROCwait(1) 

2218 FOR Q%=5 TO 255 STEP 5d 

2228 GCOL@,RND(15) 

2238 VDU23,248,RND(Q%) ,RND(Q%) , RND(Q$) 
7 RND (Q%) , RND (Q%) , RND (Q%) , RND(Q%) , RND (Q%) 

2248 FORE$=1TO3 

2258 MOVE (X%*3-2) *64, 252+ (Y*4—4+E$) *3 
2: PRINTCHR$24G+CHRS$249 

2260 NEXT ES 
2278 NEXT Q% 

2288 VDU4 

2298 PROCclear (X%, Y%) 

2388 ENDPROC 

2310 : 

2328 DEF PROCalert 

2330 ENVELOPE1,1,4,-4,4,10,20,19,127,1 
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27,9,8,127,126 

2348 SOUND1,1,196,30 

2358 COLOUR 139:CLS:COLOUR 12 

2368 PRINTTAB(1,3);"Red Alert" 
2378 ENDPROC 

2388 : 

2398 DEF PROCfinish 

2486 COLOUR 132:CLS 

2418 SOUND1,-15,129,25 

242@ COLOUR12:PRINT TAB(3,1)"The Winne 
ri" 

2438 COLOUR @:PRINT TAB(4,3)"Score "; 
B; 

2448 COLOUR 7:PRINT TAB(4,5)"Press bar 
me. 

’ 

2450 *FX15,1 

2468 I=GET:CLS 

2476 PRINTTAB(2,2)"Another game ?"; 
2489 REPEAT Z=INSTR("YyNn",GETS) : UNTIL 
ZG 

2496 ENDPROC 

2508 : 

2519 DEF PROCinstr 

2528 COLOUR 129 

2530 PRINTTAB(1@,2)SPC(15) 

2549 PRINTTAB(1@,3)" RED ALERT ! " 
2558 PRINTTAB(19,4)SPC(15) 

2568 COLOUR 128 

2578 PRINT TAB(3,8)"Capture your oppon 


ent's squares by" ' "‘exploding' your o 
wn." 

2589 PRINT TAB(3,12)"The first player 
to wipe out all" ' "trace of his oppone 


nt wins the game." 

2598 PRINT TAB(3,15)"The critical mass 
of the squares" ' "varies around the b 
oard:" 

2608 PRINT TAB(7,19)"Corner squares... 


2610 PRINT TAB(7,21)"Edge squares..... 
2628 PRINT TAB(7,23)"Inner squares.... 


2638 COLOUR 1 

2648 PRINT TAB(6,3@)"PRESS SPACE BAR T 
O START" 

2658 REPEAT UNTIL GET=32 

2668 ENDPROC 

2676 : 

2680 ON ERROR OFF 

2698 MODE 6 

2768 IF ERR<>17 REPORT:PRINT" at line 
"> ERL 

2718 END 

2728 : 

2738 DATA 225,225,32,225,224,225,224,2 
25,32,225,224,225 

2748 DATA 2,3,3,3,3,2,3744454¢473¢344, 
4444443434474041403730404047473727343,3 
13,2 
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INTRODUCING MACHINE CODE 


by Mike Williams 


This month we have reviewed a number of books on machine code 


programming for the Electron. 


In this article, Mike Williams 


provides a short introduction to this topic for the uninitiated and 
helps to clear a path through all the jargon and mystery surrounding 


machine code. 


Occasionally, in some of _ the 
programs that we have presented in 
previous issues of ELBUG, we have drawn 
your attention to short sections of so 
called 'machine code' included in those 
programs. Until now we have not 
attempted to explain in any detail what 
is meant by machine code. You may also 
have seen that there is a substantial 
chapter in your Electron User Guide 
devoted to something called ‘assembly 
language', which you may also be 
wondering about. 


In this article, we will attempt to 
explain exactly what these two phrases 
refer to, the reasons why machine code 
and assembly language are important to 
the Electron, and how this all fits in 
to the more familiar world of Basic. 


BINARY BEGINNINGS 

AS you may know, all computers 
including the Electron, store all their 
information in memory in the form of 
‘binary' numbers. These are numbers to 
the base of two and are written with 
the digits '@' and '1' only. Thus two 
is represented as 10, five is 101, and 
a decimal ten is 1910. Like many micros 
the Electron uses the 6562 micro- 
processor chip, and this processor will 
recognise and act upon a set of 
comparatively simple instructions known 
just as 6582 code. It is these 
instructions which are called machine 
code, and programs using’ these 
instructions are called machine code 
programs. Of course, not all computers 
use the 65982 processor, and hence every 
different processor has its own unique 
brand of machine code. 


NOW HEXADECIMAL 

Now it would be very tedious for us 
to write machine code programs in 
binary, and so a mathematical shorthand 
called ‘hexadecimal’ is often used 
instead. This is based on 16 so that 


hex binary decimal] hex binary decimal 


every four binary digits can be 
represented by a single hexadecimal 
digit. The complete set of hexadecimal 
digits is shown in the table below with 
their binary and decimal equivalents. 


NOU PWN @ 


You will often find machine code 
represented in this form, and 
hexadecimal is often used for data as 
well at the machine code level. 


ASSEMBLY LANGUAGE 

Now although hexadecimal numbers are 
much less tedious to write than binary, 
any program written this way will be 
completely unreadable to all but the 
most fanatic of programmers. To make 
life easier for everyone, all 65062 
machine code instructions can be 
represented by three letter mnemonic 
codes, that is codes which help us to 
remember their funcsion. For example, 
you will find 'LDA' meaning 'load the 
accumulator with a number', or and 
'STA' meaning 'store the number from 
the accumulator in memory’. This form 
of machine code also allows us to use 
names to refer to memory locations, 
rather than having to remember all the 
time the exact memory addresses. This 
form of machine code is called an 
‘assembly language’, and although it 
may look very different, is 
functionally equivalent to machine code 
described earlier. Assembly language 
versions of machine code are just that 
much easier for us to write and 
understand. 
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THE ELECTRON'S ASSEMBLER 

Unfortunately, the 6582 processor 
cannot understand assembler (another 
term for assembly language) amd so a 
special program, called an ‘assembler' 
is required to convert the mnemonic and 
symbolic codes into binary. On some 
machines this is a separate utility, 
but on the Electron the assembler is 
built into Basic, so that it is always 
immediately available whenever it is 
required. You just have to know how to 
call it. This is very easy. In any BBC 
Basic program the character Hi 
indicates that everything to follow is 
in assembler until the corresponding 
character ']' switches back to Basic. 
However, there is much more to writing 
machine code programs on your Electron 
than just using square brackets (hence 
the books on this subject reviewed this 
month) . 


To summarize, machine code and its 
representation called assembler, is the 
set of instructions directly understood 
and acted upon by the 6592 processor. 
Assembly language routines can be 
easily embedded in Basic programs and 
converted (or assembled) into proper 
machine code by Basic's built-in 
assembler. 


BUT WHY USE MACHINE CODE? 
Since BBC Basic is such a good 
language, why do we need assembler 


anyway. There are two principal answers 
to this question. Firstly, machine code 
Programs will often take up much less 
memory than their Basic equivalents, 
and this is very useful on the 
Electron, especially if one of the 20K 
graphics modes is to be used witha 
large program. 


Secondly, and most importantly, 
programs written directly in machine 
code (or assembler) will run much 
faster than if written in Basic. 
Machine code programs are often as much 
as 10 times faster, and sometimes the 
improvement can be greater still. This 
is partly because machine code allows 
you to control much more directly what 
is going on inside the computer, and 
also because the Basic interpreter, 
which is what enables your program in 
Basic to be carried out by the 
computer, takes up a lot of the 
processor's time, substantially slowing 
down the speed of your own program. 
That's why most of the comercial 
programs you can buy for your Electron, 
particularly action games, are written 
in machine code. 


So, if your enthusiasm is now fired 
to learn all about machine code and 
write that best selling arcade game 
read our review in this issue of some 
of the books on this subject that you 
can go out amd buy. & 
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PLUS-1 USER PORT - P. Wells 


If you own a Plus-1! then you might be interested to know that you can use the 
printer port to perform the output functions of a user port (as on the BBC micro). 
The address of the port is &FC71. For example: to make the pattern, 90001111 (&@F in 


hex), appear on the eight output lines you would use ?&FC71=&@F. 


ERROR IN THE USER GUIDE 


There is an error in the Electron User Guide under the section on page 236, which 
explains about using 'negative INKEYs' from assembler. The correct way to call the 
routine for a '‘negative' call is for the Y register to hold &FF, and the X register 
to hold the negative INKEY value. 


DELAY LOOP 


A REPEAT UNTIL TIME ... delay loop doesn't have to use positive values, as can be 


demonstrated by: 
TIME=-506 
REPEAT UNTIL TIME>@ 


This also means that different delay times (maybe set in another program) can use 


the same delay loop instruction. 
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BOOKS FOR MACHINE CODE PROGRAMMERS 


Reviewed by Mike Williams 


Many micro users have the urge to get 
to grips with machine code programming. 
Maybe they have heard of the power of 
machine code as evidenced by the best 
of the action games you can buy in the 
shops, maybe it's the ,desire to learn 
something different, to be one up on 
your friends. Whatever the reason there 
are many books out there to help you 
and this month we look at four of the 
most popular that deal specifically 
with machine code programming on the 
Electron. 


As you know, the Electron is based 
very strongly on the BBC micro, and it 
will come as no surprise therefore to 
learn that all four of these books were 
originally written for that machine and 


Assembly Language Programming for the 
Electron by Ian _ Birnbaum, 


Acorn 


published by Macmillan at £7.95. 


The initial impression is of a book 
that is well produced and is attractive 
in appearance. The text and program 
listings are very readable and the 
diagrams clear and well presented. 

This book adopts a _ distinctive 
approach to the task of introducing 
machine code programming. It assumes 
and builds on a reasonable knowledge of 
Basic using short example programs to 
illustrate the points to be made. This 
is used extensively at the beginning of 
the book, but as the text develops, 
there is less and less reference to 
Basic and new machine code ideas are 
introduced directly. The use of Basic 
in this way is one which is likely to 
appeal to many Electron owners and it 
has certainly proved successful in the 
BBC version of this book. 


The book covers quite 
comprehensively all the main aspects of 
assembly language programming including 
decision making, looping, indexed and 
indirect addressing, arithmetic, 
subroutines and interrupts. Indeed the 
chapters on indexed am = indirect 
addressing are models of excellence. 
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have now been rewritten for the 
Electron. This at least has the 
advantage that there has been time for 
the programs to have been tested and 
any errors found and corrected before 
the Electron version appears in the 


shops. On the other hand there is an 
obvious temptation to the author or 
skimp the job of 


publisher to 
conversion. 


If you are not too sure what machine 
code is anyway, or why you might want 
to program in another language then 
read the introduction to machine code 
in this issue designed to answer just 
such questions. Now let's see how these 
four books shape up. 


The book shows clearly how to use 
assembler on the Electron and there are 
many excellent examples throughout the 
text. 


Each chapter contains several 
exercises on the appropriate topic and 
solutions to all the exercises are 


contained in an appendix. There are 
several other appendices of useful 
reference information (including a 


complete description of the 6592 
instruction set) while the last chapter 
in the book contains several complete 
utility programs. 


With just over 3088 pages in all, 
this is without doubt a book to be 
recommended and I am sure that the 
Electron edition will prove as popular 
as the earlier version for the BBC 
micro. 


Electron Machine Code for Beginners by 
Ian Sinclair and published by Granada 


at £6.95. 


This is in the nature of a more 
introductory text than the previous 
book. The first three chapters are 
devoted to a general discussion of the 
internal workings of the Electron 
including topics such as binary and 
hexadecimal numbers. Following this 
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grounding, the author introduces the 
basic features of the 6582 processor 
and its registers. The intricacies of 
both indexed and indirect addressing 
are introduced quite quickly together 
with all the branch instructions, and 
all this before any examples of actual 
machine code programs. I think that the 
relative paucity of example programs 
plus their delayed appearance (not 
until after page 6% does the first 
appear) would be my main criticism of 
this book. 


Further chapters deal with input and 
output using the routines built into 
the operating system, and the debugging 
of machine code programs using a 
monitor program (The book refers 
extensively here to EXMON, a machine 
code monitor produced by BEEBUG, the 
Electron version of which is now 
available). A final 'Round-up' chapter 
and five appendices complete the 15¢ 
plus pages of this well produced book. 


This book provides a most readable 
introduction to the whole world of 
machine code programming, but it is 
only an introduction and I suspect that 
most people would find the need for a 
further book to become reasonably 
proficient. In fairness, the author 
makes this point himself in the 
preface. 


Assembly Language Programming on the 
Electron by John Ferguson & Tony Shaw, 


published by Addison Wesley at £7.95. 


I do not feel quite as enthusiastic 
about this book as with the others 
reviewed here. It is not that it is in 


any way particularly bad but there are 
a number of small points about this 
book that overall created my less 
favourable impression. The book 
contains many diagrams, in itself a 
feature to be applauded, but in many 
cases these have been embellished in 
ways that are intended to add some 
humour to what is otherwise a rather 
serious subject, but which I often 
found irritating, confusing and 
irrelevant. The paper used is so thin 
that the printing on one side is often 
visible from the other, which does not 
help. The printed listings of the many 
example programs are often really too 
feint - the other books all show this 
is avoidable even if the listings are 
taken directly from a dot matrix 
printer. 


This book provides a_straight- 
forward introduction to many aspects of 
machine code programming and as 
mentioned above, there are plenty of 
example programs included from quite 
early in the book. I do find the very 
early use of the stack and subroutines 
rather surprising, but perhaps I am 
just a traditionalist in this respect. 
Overall, the coverage of assembly 
language programming is quite 
comprehensive (including interrupts for 
example), and you should be able to 
learn much from the many examples. 


With just under 208 pages this book 
is good value but you will have to 
judge for yourself whether the style of 
presentation is one which appeals to 
you or not. 


Electron Assembly Language by Bruce 


Smith, published by Shiva at £7.95. 


This book is certainly packed with 
masses of information for the potential 
machine code programmer, and in fact 
provides a most useful reference guide 
for the more experienced user. Many of 
the chapters are quite short so that in 
some cases I would have wished for more 
examples of programs using the new 
information presented. 


The early chapters introduce useful 
background ideas, including both binary 
and hexadecimal numbers, logical 
operations, memory layout, registers 
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etc. The next few chapters deal with 
the essence of machine code programming 
(addressing modes, branch instructions, 
the stack, subroutines and jumps). 
There are also several chapters dealing 
with various topics more specific to 
the Electron, including the interaction 


between Basic and machine’ code 
(particularly with CALL and USR), and 
the use of the operating system 
routines which are readily accessible 
in machine code. 


The book also contains over 70 pages 
(out of a total of 200) of appendices. 


One of these shows how many Basic 
keywords and functions may be easily 
written in machine code, and there is a 
very full reference section to the 
whole 6582 instruction set. 


With so much information you are 
hardly likely to go wrong with this 
book which should certainly suit those 
who wish to do more than just scratch 
the surface of machine code 
programming. I have one small gripe and 
that concerns the lack of sufficient 
application programs in assembler, as 
opposed to just short illustrative 
routines. But then you can't expect 
everything. 


CONCLUSIONS 


As I have indicated, all of these 
books will provide you with good value, 
and any choice is bound to be a matter 
of personal taste and preference. If 
you want a good introduction then go 
for those by Sinclair or Birnbaum,. if 
you want comprehensive coverage and 
more detail, then those by Birnbaum and 
Smith are my choice, and if I really 
had to pick just one then it would have 
to be Ian Birnbaum's, which for me is 
388 pages of sheer delight! oy 
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COLOURFUL _GCOL PARAMETERS - Paul Watts 


AS you may know, you can get the operating system to draw in two colour stripes 
by using the GCOL statement with silly parameters. Here is a routine that allows you 


to specify the two colours yourself. 


dependent upon the current chosen mode. 


The displayed colours will, of course, be 


DEF PROCgcol (option,first,second) LOCAL a,b 
GCOL option, first:a=?&359 AND &AA:GCOL option,second @ 


b=?&359 AND &55:?&359=a + b:ENDPROC 


INVERSE VIDEO - Ashley Denninson 

To produce reverse video without resorting to a sequence of COLOUR statements, 
use ?&D3=255 to produce inverse video, and ?&D3=@ to revert back to normal video. 
(Note that modes with more than two colours will need different values - these can 
be found by experimenting.) 


NUMBER OF CHARACTERS PER LINE 
If you wish to use the full width 


of the screen, dependent on the mode in use, 


then the following formula will enable you to calculate this, given the current mode 
(C$ will hold the number of characters on exit, and M% holds the mode number on 
entry) : 

IF M$<6 C$=2*(2-(M% MOD 3))*2@ ELSE C%=40 & 
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WEE SHUGGY 


by Hugh Darby 


If you enjoyed Block Blitz published in ELBUG Vol.1 No.4 
(acclaimed by many members as one of our best ever games) then you 
will certainly like Wee Shuggy, a game about a small guy trapped in 
a dungeon. He needs your help to find several keys and escape from 
the nightmare world in which he finds himself. 


Wee Shuggy is a version of the 
popular computer game, ‘Manic Miner', 
in which the player has to fetch all 
of the keys to open a grating so that 
he can escape from the dungeon. There 
are various obstacles on the way 
including thorn bushes, floors that 
collapse as you walk = on_ them, 
stalactites and conveyor belts. 


You lose a life if you jump into a 
Stalactite or a thorn bush, and then 
have to start the current screen from 
the beginning again. 


You have three lives in all, and 
there is a high score table and 
instructions in the program. The game 
uses just three keys to control the 
movements of the man, 'Z' and 'X' for 
left and right, and 'Return' for jump. 


There are six different dungeons in 
this fast and colourful game, and each 
one provides a challenging, enjoyable 
and often frustrating experience. 
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We are sure that once you start 
playing Wee Shuggy you will agree that 
this is one of the most outstanding 
games that we have published in ELBUG. 
The time and effort spent typing the 
program into your micro will be well 
rewarded. 


PROGRAM NOTES 

The program is well structured, but 
care is still required when typing it 
in. Extensive use is made of 
user-defined characters set up in the 
procedure PROCcharacter from line 3496 
onwards. These characters are used in 
displaying the different screens in the 
game (procedures screen, screen2, 
screen3, screen4, screen5, and screen6) 
by putting the character codes ina 
series of VDU statements in each case. 
The VDU statement is more concise as 
only the character code is required 
(224, 225 etc) rather than the 
character itself (CHR$224, CHRS$225 etc) 
as would be needed in a_ PRINT 
statement. It is also easy to include 
any of the other VDU codes (in the 
range 8 - 31) to change colour, move 
the cursor etc as required. 


For speed, the program also 
incorporates a short machine code 
routine PROCassem (to check on the 
screen character at the current cursor 
position) and uses direct memory access 
(the procedure PROCobject for example). 


All the procedures have reasonably 
meaningful names so you should be able 
to identify their functions without too 
much difficulty. 
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1@ REM PROGRAM WEE SHUGGY 
28 REM VERSION E@.1 


3@ REM AUTHOR HUGH DARBY 
40 REM ELBUG NOVEMBER 1984 
‘50 REM PROGRAM SUBJECT TO COPYRIGHT 


188 ON ERROR GOTO 37198 

11@ MODES 

126 PROCcharacter : PROCassem 

138 PROCinstr: PROCarray 

140 REPEAT 

158 MODES: PROCvar 

166 PROChi:VDU23,1,0;0;9;0; 

176 REPEAT:CLS 

18G ONSCR&GOTO19G , 200, 218,220,230, 246 


198 PROCscreen :GOTO269 
208 PROCscreen2:GOTO26G 
218 PROCscreen3:GOTO268 
228 PROCscreen4:GOTO26G 
230 PROCscreen5 :GOTO268 
248 PROCscreen6:GOTO26G 
258 PROCfinale 
268 PROCheader 
276 REPEAT 
288 PROCplayer : PROCtest 
298 UNTILdeadORtinish 
308 IFdeadPROCfinishELSEPROCnewscr 
318 UNTILdead 
328 MODE6: PROCend 
330 UNTILFALSE 

END 


358 : 

1606 DEFPROCarray 

1016 DIMNS(5) ,HI%(5) sFORI$=1TO5:NS (1%) 
="ELBUG MAG":HI% (1%) =3068-1%*500: NEXT 
1828 ENDPROC 

1038 : 

1648 DEFPROCassem 

1058 P$=&8G 

1066 [OPT2:LDA#135:JSR&FFF4: TXA:CLC:AD 
C#96: TAX: STX&7@:RTS: ] 

1876 ENDPROC 

1680 : 

1998 DEFPROChi 

1168 VDU22,5: PRINT 

111@ COLOUR3: PRINT" TODAYS TOP SHUGGYS" 
1126 COLOUR2:FORI%=1TO5 

1138 VDU31,0,1%*3+1 

1146 PRINTSTRS (I$) +"..";TAB(3)NS (I$) ;T 
AB(13)".."+STRS (HI% (I$) ) 
1150 NEXT 

116@ COLOUR1]:PRINT''''" 
1178 REPEATUNTILGET=32 
1188 CLS 

1198 ENDPROC 

1268 : 

121% DEFPROCdouble (AS) 


Press <SPACE>" 
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1228 AS=CHR$141+A$ 
1238 PROCcent (A$) : PROCcent (A$) 

124@ ENDPROC 
1258 : 

1268 DEFPROCcent (A$) 

1278 pos=28-LENAS$/2 
1288 VDU31,pos , VPOS: PRINTAS 
1298 ENDPROC 
1308 : 

1319 DEFFNspc=STRINGS ( (1G-LENNS (I%).) ,C 
HR$32) 

1328 : 

1338 DEFPROCscreen 
1348 CLS:COLOUR] : PRINTTAB (8, 38) ; STRING 
$ (20,CHR$224) ;CHRS$30;CHRS$11 
1358 VDU31,4,27,224,224,224,224,224,22 
4,17,2,232,232,232,31,18,26,232,232,232 
117,1,224,225, 225,225, 225,224,224 

1368 VDU31,6,22,224,224,224, 32,32,32,2 
24,224,224,224,224,17,2,232,232,232,17, 
1,228,228, 228,32,224,224,31,11,21,17,2, 
232,232,232,17,3,229 
1378 VDU31,@,18,17,1,224,224,31,0,14,2 
24,224,224,224,224,224,224,224,225,225, 
225,224, 225,225,225,224,224, 224,224,224 
1388 VDU31,6,26,17,3,229,31,15,13,229, 
17,2,231,31,19,11,231,31,4,18,231,32,17 
73,230,32,238,32,32,236,32,17,2,231 

1398 KEYS=4 

1488 ENDPROC 
1416 : 

1429 DEFPROCheader 
1438 VDU19,3,2;9; 

1446 IFG%<>@GOTO1 463 
1458 COLOUR2:FORI%=28T03:VDU31,17,1%, 
233,233,233:NEXT 

1468 COLOUR132:FORI$=1TO9: PRINTTAB (G,I 
%) SPC20: NEXT 
147@ PRINTTAB (1,3) “SCORE:";SC%;TAB(1,6 
) "LIVES:";liv%;TAB(19,6) "BONUS: 60" 

1488 MOVEG, 704 :DRAWG , 992: DRAW1279,992: 
DRAW1 279, 704:DRAWG, 704 

1496 MOVE16,712:DRAW16, 984: DRAW] 262,98 
4:DRAW1262,712:DRAW16,712 
1568 TIME=0 
151@ ENDPROC 
1526 : 

1538 DEFPROCinstr 
1548 VDU22,6 

1558 PROCcent ("WEE SHUGGY") 

1560 PRINT'" Wee Shuggy is trapped 
in a small dungeon and can't get out 
unless he has the necessary number of 
keys to unlock the grate at the bottom 
of the screen." 

1578 PRINT'" To collect the keys 
he has to run around the dungeon leapin 
g over cracks in the floor,jumping th 
orny bushes,and avoiding the stalactite 
s on the dungeon roof." 
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the necessary numbe keys to unlock 
the grate at the bottom of the screen 


the keys he has to run 
leaping over cracks 
bushes, and 
Gungeon 


To collect 
aroun the 
in the floor, jumpi: 


thorny 
avoiding the stalactites on the 


roof 


The keys are :- 


1588 PRINT: PROCcent(" The keys are :-") 
1598 PRINT: PROCcent ("Z........LEFT") 
1668 PRINT: PROCcent("X.......RIGHT") 
1618 PRINT: PROCcent ("RETURN...JUMP") 
1628 PRINT: PROCcent ("Press < SPACE > t 
o start") 

1638 REPEATUNTILGET=32:CLS 

1649 ENDPROC 

1656 : 

1660 DEFPROCvar 

1670 X%=0: Y$=30:I%=G6: DIR$=6: Gt=G 
1680 OX%=X%: OY$=Y%: SC$=0: Liv$=3 
1698 dead=@: finish=G: SCR$=1 :keys=9 
1788 ENDPROC 

1718 : 

1728 DEFPROCpr int (c) 

1738 IFc<>@GOTO1 760 

1746 *FX19 

1758 VDU31,X%,Y%, 32: ENDPROC 
1768 *FX19 

1776 VDU17,c,31,X%,Y%,253+X8MOD2 
178@ ENDPROC 

1798 : 

1888 DEFPROCplayer 

1819 PROCprint (@) 

182@ IFFNcheck (X%, Y%+1) =GANDJ%=G@: Y8=Y$+ 
1: IFADVAL-6=1 5SOUND1 , 2, 30-Y%, 1: GOTO1900 
1830 IFENcheck (X$, Y%+1) <>@PROCobj2 
1846 OX%=X$:OY8=Y$ 

1858 IFINKEY-74ANDJ%=@DI R$=INKEY-98-IN 
KEY-67 : J$=1 : UNO$=-1 : IFADVAL-6=1 5SOUND1, 
Sylp2 

1868 IFJ$<>@PROCjump:GOTO1 896 

1870 IFINKEY-6 7ANDX%<1 9X%=X$+1 

1880 IFINKEY-98ANDX%>9X%=X3-1 

1899 IFENcheck (X$,Y%) <>@PROCobject 

1966 COLOUR2: PRINTTAB (16,6) ;68-TIME DI 
V 180;CHRS$32 

1919 PROCprint (2) 

1928 ENDPROC 

1938 : 

1948 DEFFNcheck (x%,y%) 

1958 VDU31,x%,y%:CALL&8d 


NOVEMBER 1984 


31 


1960 IF?&70=960R?&7G=1 28THEN=GELSE=1 
1978 : 

1988 DEFPROCobject 

1990 IF?&7G>=224AND?&70<229I3 =u: UNO$=8 
2 Y$=Y%$-1 : ENDPROC 

2066 IF?&76=2290R?&7G=23G0R?&70=234dea 
d=-1:ENDPROC 

2019 IF?&7G=231PROCbonus : ENDPROC 

2026 IF?&7G6=232X%=OX$% : Y3=OY% : ENDPROC 
2030 IF?&7@=233ANDKEYS=keys finish=-1E 
LSEIF?&70=233X%=1 6: Y8=3 : ENDPROC 

2640 IF?&7G=235PROCpr int (@) :X$=6: Y%=19 
2050 IF?&7G=236PROCpr int (G) :X$=14:Y$=19 
2968 ENDPROC 

2670 : 

2086 DEFPROCjump 

2698 X%=X$+DIR%: IJ$=J3+1 s YS=YS+UNOS 
2100 IFFNcheck (X%,Y%) <>@PROCobject 
2118 IFJ%>3UNO$=1 

2128 IFJ$=7UNO$%=6 : J$=G 

2138 ENDPROC 

2146 : 

2158 DEFPROCtest 

2166 IFY%>3@dead=-1 : Y$=3GELSEIFY%<11PR 
OCprint (8) :Y$=11 

2176 IFX%>18PROCpr int (G) :X%=18ELSEIFX$ 
<1PROCpr int (@) :X$=1 

2188 IFTIME>=6000 dead=-1 

2198 ENDPROC 

2266 : 

2218 DEFPROCcollapse 

2228 VDU17,1 

2230 IF?&78=227VDU31 ,X%, Y$+1 , 32: ENDPROC 
2246 VDU31 ,X%,Y%+1,?&70+1 

2258 ENDPROC 

2260 : 

2276 DEFPROCbonus 

2288 SC%=SC%+100:keys=keys+1:VDU17,9,3 
1,X3,Y%,32 

2298 SOUND1,1,206,1 

2388 COLOUR2: PRINTTAB (7,3) ;SC% 

231@ ENDPROC 

2328 : 

2338 DEFPROCobj2 

2340 IF?&76>224AND?&70<228PROCcol lapse 
: ENDPROC 

2358 IF?&7G=228X%=X%-1 : ENDPROC 

2360 IF?&70=233ANDKEYS=keys finish=-1E 
LSEIF?&70=233X%=1 6 : Y$=3G: ENDPROC 

2370 IF?&70=234dead=-1 : ENDPROC 

2386 IF (?&76=2290R?&7G=23G) ANDJ$=GY%=Y 
$+1: ENDPROC 

2398 IF?&7G=231ANDJ%=GOY%=Y%3+1 

2486 ENDPROC 

2410 : 

2428 DEFPROCnewscr 

2439 T=TIME 

2446 CLS: SCR$=SCR$+1 : SC8=SC$+6G-TDIVI GG 
2450 X%=0: Y$=30: J$=G : DIRS=G : OXB=X$2OYS 
=Y%:dead=9: finish=9:keys=0 
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2460 IFSCR%<7 PRINTTAB(@,1) "GOING ONT 
O SCREEN ";SCR&ELSEENDPROC 

247@ T=TIME: REPEAT UNTIL TIME=T+300 

2488 ENDPROC 

2498 : 

2500 DEFPROCfinish 

2518 CLS: FORI%=1GGTO@STEP-4 : SOUND1, 3,1 
%,2:NEXT 

2520 Livt=liv%-1: IFliv%<=@dead=TRUE: EN 
DPROC 

2530 X%=6: Y$=30:I$=0: DIRS=G: OX$=X$: OYS 
=Y%$:dead=@: finish=0:keys=0 

2540 IFTIME>=600@PRINTTAB (3,19) "YOU RA 
N OUT OF TIME" 

2558 ENDPROC 

2568 : / 

2576 DEFPROCend 

2580 *FX21,9 

2596 FORT%=255TOGSTEP-1 : SOUND&11,4,T%, 
1:SOUND&19,4,7,1:NEXT 

2600 T=TIME: REPEAT UNTIL TIME=T+30@ 

2618 IFSC%<=HI$% (5) ENDPROC 

2628 FORI%=5TOISTEP-1 

2638 IFHI%(I%) <SC$CS=I% 

2648 NEXT 

2656 PRINT''':PROCcent ("WELL DONE!") 

2668 PRINT':PROCcent ("YOUR SCORE OF "+ 
STR$(SC$%) ) 

2676 PRINT':PROCcent ("IS ENOUGH TO RAN 
K YOU "+STRS$ (C%) +MIDS ("stndrdthth" ,C$*2 
-1,2)) 

2680 PRINT':PROCcent ("PLEASE ENTER YOU 
R NAME ") 

26986 INPUTTAB(5,15)A$ 

2760 IFLENAS>1@CLS:GOTO2650 

271@ IFC%=5GOT0O274G 

272@ FORI%$=4TOC%STEP-1 

2730 HI%(I%+1)=HI% (1%) =NS(I$+1)=NS$ (I$) 
: NEXT 

274 HI% (C$) =SC$:NS (C$) =AS 

2756 ENDPROC 

2760 : 

2776 DEFPROCscreen2 

2788 *FX21 

2798 VDU31,9,30,17,3:FORI%=9TO19: VDU23 
4:NEXT: VDU3@,11 

2808 VDU31,9,18,17,3:FORI%=9TO19:VDU23 
@:NEXT 

2818 VDU31,9,15,17,1:FORI$=@TO19:VDU22 
5:NEXT 

2820 VDU31,9,31,224,224,224,11,11,32,3 
2,224,224,11,11,32,32,224,224,11,11,32, 
32,224,224,31,8,30,228, 228, 228,228, 32,3 
2,16,225,225,224 

2838 VDU31,7,22,225,225, 225, 32, 32,32,3 
2,32,32,225,225,225,31,0,26,224,224,31, 
3,22,224,224,31,5,18,224,224 

2849 VDU31,8,29,17,2,231,31,8,21,231,3 
1,17,21,231,31,15,14,231,231,231 

2858 keys=@: KEYS=6 
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2868 ENDPROC 

2878 : 

2888 DEFPROCscreen3 

2898 *FX21 

2988 VDU31,9,30,17,3:FORI%=@TO19:VDU23 
4:NEXT: VDU3@,11 

2918 VDU31,9,19,17,3:FORI%=@TO19:VDU23 
@: NEXT 

2928 VDU31,9,31,17,1,224,224,225,31,3, 
28,228,228,11,11,11,228,228,11,11,11,22 
8,228,11,11,11,228,228,225,225,32,32,22 
4,224,225,225,225 

2938 VDU31,0,27,224,224,31,0,23,224,22 
4,31,0,19,224,224,31,17,27,224,224,31,6 
713,225,225,225,225,224,225 

2948 VDU31,3,16,225,225,225,31,11,27,2 
24,224,31,15,20,17,2,232,8,18,232,8,18, 
232,8,19,232,31,13,31,232,232,232,232 
2958 VDU17,2,31,9,26,231,31,18, 26,231, 
31,16,12,231,31,18,22,231,31,6,24,231 
2960 keys=@:KEYS=5 

2978 ENDPROC 

2986 : 

2998 DEFPROCscreen4 

3000 *FX21 

3618 VDU31,9,30,17,3:FORI$=0TO19:VDU23 
4:NEXT: VDU3@,11 

3628 VDU31,16,12,17,2:FORI$=8TO18:VDU2 
32,18,8:NEXT: VDU232 

3038 VDU17,1,31,0,31,224,224,31,8,27,2 
24,224,31,8,23,224,224, 32,225,225, 32,11 
711,224,11,11,224,11,11,224,31,8,14,228 
7228,228,228,228,224,224,224 

3049 VDU31,11,12,225,225,225,31,11,13, 
17,2,238,230,236,17,1,31,14,15,228,228, 
31,12,18,228,228,31,11,31,224,224 

3658 VDU31,13,27,224,224,31,15,23,224, 
224,31,17,19,224,224,17,2,31,16,27,232, 
232,232,232,31,16,26,232,232,232,232,17 
71,31,16,31,224,31,18,15,224,224 

3068 VDU17,2,31,9,26,231,31,11,38,231, 
31,19,14,231,31,19,25,231,31,8,13,231 
3078 keys=@:KEYS=5 

3089 ENDPROC 

3098 : 

3168 DEFPROCscreen5 

3118 *FX21 

3128 VDU31,8,30,17,3:FORI%=6TO1 9: VDU23 
4: NEXT: VDU3@,11 

3138 VDU31,10,10,17,2:FORI$=8TO2G: VDU2 
32,19,8:NEXT: VDU232 

3148 VDU31,16,13:FORI%$=@TO17:VDU232,19 
, 8: NEXT: VDU232 

3158 VDU17, 1:FORI%=1 3TO27STEP3:VDU31,1 
7,1%,225,225,225:NEXT 

3168 VDUI7,1,31,9,31,224,224,224,31,5, 
31,224,224,31,8,31,224,224,31,8,27,224, 
224,31,5,24,224,224,31,8,21,224, 224,224 
731,0,17,224,224,224 
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3178 VDU31,0,13,224,224,224, 32,225,225 
7225,225,225,31,9,26,224,11,32,8,11y32, 
31,11,20,225,225,32,225,225,31,13,16,22 
8,228, 228,31,13,13,228,228, 228, 31,15,31 
7225 

3188 VDU17,2,31,19,12,231,31,17,15,231 
731,19,18,231,31,17,21,231,31,19,24,231 
731,8,26,231,31,18,18,231,31,15,3G,231 

3198 keys=@: KEYS=8 

3286 ENDPROC 

3218 : 

3228 DEFPROCscreen6 

3236 *FX21 

3248 VDU17,1,31,0,31,224, 224,224, 32,22 
7,227,32,17,3,234,17,1,227,32,227,227,2 
24,225,17,3,234,234,17,1,225,224, 225,22 
4,36,11,31,2,27,224,31,1,23,224,224,31, 
1,19,235,31,5,20,228,228 
3258 VDU17,2:FORI%=31TOl 9STEP-1 : VDU31, 
3,1%,232,31,9,1%,232:NEXT 

3268 FORI%=27T01 9STEP-1 :VDU31,12,1%,23 
2,232,31,16,1%,232:NEXT: VDU31,7,19,232, 
8,18,232,8,16,232,31,6,29,232,8,19,232, 
8,108,232 
3276 FORI%$=0TO19:VDU31,1%,18,232,31,1% 
717,232:NEXT: VDU31,14,17,32,32,31,14,18 
732,32 
3288 VDU17,1,31,8,27,224,31,8,23,224,3 
1,8,20,224,11,32,31,16,27,227,31,16,23, 
227,17,3,31,10,24,23G,31,11,21,238,17,2 
731,11,26,232,17,1,31,18,27,224,224,31, 
18,23,224,224,31,18,19,236 
3298 VDU31,14,17,226,226,31,14,29,226, 
226 
3306 VDUI7,2,31,2,19,231,31,6,28,231,3 
1,9,19,231,31,10,22,231,31,13,28,231,31 
716,28,231,31,17,16,231 

3310 FORI%=14T016:VDU31 ,G,1%,233,233,2 
33,231,231,231:NEXT 

3328 keys=@:KEYS=16:G$=1 

3338 ENDPROC 

3348 : 

3358 DEFPROCfinale 

3368 FORT%$=0TO255: SOUND&11,4,T%, 1:SOUN 
D&1,4,7,1:NEXT:SOUNDG,1,7,1 

3376 ENVELOPE1,1,0,0,0,9,9,%,6,0,-1,-1 
, 126,126 

3386 SOUND17,1,101,2:SOUND1,0,9,1:SOUN 
D1,1,101,2:SOUND1,9,9,1:SOUND1,1,191,2: 
SOUND1 ,@,%,1:SOUND1,1,125,5:SOUND1,@,9, 
2:SOUND1,1,181,2:SOUND1,0,@,2:SOUND1,1, 
125,5 

3398 COLOUR]: PRINTTAB (5,4) "WELL DONE!" 

3468 PRINTTAB(3,7)"WEE SHUGGY HAS";TAB 
(6,9) "ESCAPED" 

3418 VDU31,0,21,17,2:FORI$=@TO19:VDU23 
2,8,10,232,11:NEXT 

3428 Y%=20:X%=10:U=—1: REPEAT 

3430 IFY3>16ANDU Y%=Y%3-1ELSEU=@: Y$=Y3+1 
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SCORE :2e0e 
BONUS : 51 


_xrvees:s3 


3448 PROCprint (2) : IFYt=20U=-1 

3450 T=TIME: REPEATUNTILTIME=T+3: PROCpr 
int (@) 

3468 UNTILG 

3470 END 

3488 : 

3498 DEFPROCcharacter 

3508 VDU23,224,255,178,255,178,255,178 
18,G 

3510 VDU23,225,255,129,255,129,255,129 
19,0 

3520 VDU23,226,9,6,255,129,255,129,9,0 
3530 VDU23,227,9,9,0,9,255,129,9,9 
3548 VDU23, 228,146,146, 255,129,255, 255 


3558 VDU23,229,16,138,73,82,60,16,16,16 
3568 VDU23,230,255,255,191,173,44,8,8,8 
3576 VDU23,231,68,36,68,16,28,16,28,16 
3588 VDU23,232,255,66,255,8,8,255,66,2 


3598 VDU23,233,24,24,24,255, 255,24, 24, 


3688 VDU23,234,0,0,0,146,73,36,146,73 
3619 VDU23,253,28,62,197,127,26,20,20, 


3628 VDU23,254,0,0,28,62,107,127,20,54 
3638 VDU23,235,255,254,252,248,240,224 
, 192,128, 

3648 VDU23,236,255,127,63,31,15,7,3,1 
3650 ENVELOPE1,1,0,9,6,0,9,0,9,8,-2,-2 
126,98 

3660 ENVELOPE2,1,9,9,0,9,9,9,0,8,-5,-5 
795,08 

3678 ENVELOPE3,1,5,5,5,-5,-5,-5,15,15, 
-9,-9,126,126 

3688 ENVELOPE4,G@,9,9,-1,1,1,1,8,1,9,25 
4,126,128 

3698 ENDPROC 

3786 : 

3718 ON ERROR OFF:MODE 6 

3726 IF ERR=17 END 

3738 REPORT: PRINT" at line ";ERL 

3749 END & 
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BACK _ISSUES_AND SUBSCRIPTIONS 


BACK ISSUES (Members only) SUBSCRIPTIONS 


All back issues will be kept in print Send all applications for membership, 
(from November 1983). Send 90p per amd subscription queries to the 
issue PLUS an AS SAE to the subscriptions address. 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members MEMBERSHIP COSTS: 
at this same price. This offer is for U.K. 
members only, so it is ESSENTIAL to £5.90 for 6 months (5 issues) 
quote your membership number with your £9.98 for 1 year (10 issues) 
order. Please note that the advertising Eire and Europe 
supplements are not supplied with back Membership £16 for one year. 
issues. Middle East £19 
Americas and Africa £21 

Subscription and Software Address Elsewhere £23 

Payments in Sterling preferred. 


ELBUG SOFTWARE (Members only) 


PO BOX 109 
High Wycombe 
Bucks 


This is available from the software 
address. 


MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 


Please send all contributions and 
technical queries to the editorial Editorial 
address opposite. All contributions 
published in the magazine will be paid 
for at the rate of £25 per page. 


Address 


ELBUG 
PO Box 50 
We will also pay £10 for the best Hint St Albans 
or Tip that we publish, and £5 to the Herts 
next best. Please send all editorial 
material to the editorial address 
opposite. If you require a reply it is 
essential to quote your membership 
number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Assistant Editor: Geoff Bains. Production Editor: Phyllida Vanstone. 

Technical Assistants: David Fell and Alan Webster. 

Managing Editor: Lee Calcraft. 

Tnanks are due to, Sheridan Williams, and Adrian Calcraft for assistance with this 
issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 
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New Elbug Binders 


We have produced an attractive 
hard-backed binder for the 
ELBUG magazine. These 
binders are green in colour 
with “ELBUG” in gold lettering 
on the spine and allow for the 
whole of one volume of the 
magazine to be stored as a 
single reference book. 


Each binder will accommodate 
10 ELBUG magazines, and is 
supplied with 12 wires to 
enable the index and the latest 
copy of the supplement to be 
included within the binder if 
required. Individual issues may 
be easily added and removed, 
allowing for the latest volume 
to be filed as it arrives. 


The price of the new ELBUG binder is £3.90 including VAT, 
please add 50p post and packing for delivery within the U.K. 
Overseas members please send the same amount, this will 
cover the extra postage but not VAT. 

Plese send to: 

BEEBUGSOFT, PO BOX 109, High Wycombe, Bucks, HP10 8HQ. 
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THE BEST OF ELBUG ON CASSETTE 


Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name "Games and other programs for the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


There are 26 programs in all in four different categories: 

Action Games - 
Munch-Man Mars Lander Invasion 
Robot Attack Hedgehog 


Thought games 
Higher/Lower Five-Dice . Life 
Anagrams Return of the Diamond 


Visual Displays 
Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 


Utilities 
Sound Wizard Bad Program Lister 
3-D Lettering Bad Program Rescue 
Double Height Text 


All 286 programs are now available on cassette from our software address (in High 
Wycombe) price £7 to members and £9 to non-members, plus 5@p post & packing in 
either case. 


ELBUG MAGAZINE CASSETTE 


To save wear and tear on fingers and brain, we offer, each month, a cassette of the programs featured in 
the latest edition of ELBUG. The first program on each tape is a menu program, detailing the tape’s 
contents, and allowing the selection of individual programs. The tapes are produced to a high technical 
standard by the process used for the BEEBUGSOFT range of titles. 


Magazine cassettes have been produced for each issue of ELBUG from Volume 1 Number 1 onwards and 
are all available from stock, priced £3.00 each inclusive of VAT. See below for ordering information. 


This months cassette includes: 


Volume 2 Number 1 
Wee Shuggy (a superb action packed see ane game), wp teipod display, a universal joystick 


routine for use with Acorn’s Plus l, a program ill how to synchronise words and music, 
Downhill Ski Racer (another exciting action on game), and anda er fascinating and challenging game 


MAGAZINE CASSETIE SUBSCRIPTION 


We are also able to offer ELBUG members subscription to the magazine cassette, this gives the added 
advantage of receiving the cassette at around the same time as the magazine each month. Subscriptions 
may either be for a period of 1 year or6 months. (NOTE Magazine cassettes are produced 10 times each 
year). 


If required, subscriptions may be backdated as far as Volume 1 Number 1, so when applying please write 
to the address below quoting your membership number and the issue from which you would like your 
subscription to start. 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes £3.00. 
P®& P: Please add 50p for the first and30p for each subsequent cassette. 
Overseas orders: Please send the same amount, this will include the extra post but not VAT. 


Magazine Cassette Subscription 
1 YEAR (10 issues) £33.00 Inclusive..... O'SEAS £39.00 No VAT payable 
6 MONTHS (5 issues) £17.00 Inclusive..... O'SEAS £20.00 No VAT payable 


Please be sure to specify that you require subscription to the ELBUG magazine cassette (as opposed to 


the BEEBUG cassette), and enclose your membership number with a cheque made payable to 
BEEBUGSOFT. 


Please send to. . 


ELBUG Magazine Cassette, BEEBUGSOFT, PO Box 109, High Wycombe, HP10 8HQ 


Printed in England by Staples Printers St Albans Limited at The Priory Press 


